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MLX 

per VIC 20 


di C. Brannon 

trad. e adatt. 

di F. Stella 


M LX è un programma che permet- 
te di inserire listati in linguaggio 
macchina esenti in modo assoluto da 
errori e senza la perdita di tempo del 
dover battere e controllare lunghe se- 
quenze di istruzioni DATA. 

Molti dei nostri listati di programmi in 
linguaggio macchina hanno il formato 
MLX (li riconoscete dal fatto che sono 
esclusivamente numerici) e richiedono 
quindi che MLX sia caricato in memoria 
ed eseguito prima della battitura del li- 
stato. 

MLX vi chiederà l’indirizzo della loca- 
zione di partenza e quello della locazio- 
ne finale del programma da caricare. 
Questi valori sono sempre indicati nel- 
l’articolo che accompagna il listato. 
MLX vi segnala automaticamente gli er- 
rori di battitura MENTRE STATE DIGI- 
TANDO IL LISTATO e vi chiede di 
reinserire la linea errata. L’ultimo nu- 
mero battuto di ogni linea rappresenta 
il checksum e viene visualizzato in re- 
verse. 

Sono inoltre disponibili altri comandi, 
quali: 

SHIFT-N nuovo indirizzo: permette di 
cambiare l’indirizzo della linea che vole- 
te battere ed è utile nel caso si inserisca- 
no i listati in più parti. 

MLX versione per VIC 20 


SHIFT-D display: lista i dati inseriti tra 
due indirizzi di inizio e fine. 

SHIFT-L load: carica un file da nastro 
o SHIFT-S save: salva su nastro o disco 
un file in formato MLX. 

Una volta battuto il listato, e salvatolo 
tramite MLX, si potrà caricare diretta- 
mente il programma con un’istruzione 


LOAD “nome del file”, 1,1 per il regi- 
stratore, oppure LOAD “nome del fi- 
le”^,! per l'unità a dischi, salvo diverse 
indicazioni date negli articoli corrispon- 
denti ai vari programmi. Il programma 
sarà generalmente mandato in esecu- 
zione con una SYS (indirizzo di parten- 
za). 



1 00 PRINT" {CLR} {PUR}" ;CHR$ (1 42) ;CHR$ (8) ; 

1 : rem 1 81 

101 POKE788 ,194: REM DISABILITA RUN/STOP 

:rem 144 

110 PRINT" {RVS}{ 14 SPAZI}" :rem 117 

120 PRINT" {RVS} {DES} {OFF} [<*>] £{RVS} 

{DES} {DES } { 2 SPAZI }(<*>] {OFF} [<*>] 
£{RVS}£{RVS} " : rem 191 

130 PRINT"lRVS} {DES} [<G>){DES} 

{ 2 DES} {OFF}£{RVS}£ [<*>] {OFF} [<*>] 
{RVS} {OFF}" : rem 122 

140 PRINT" {RVS} { 14 SPAZI}" :rem 120 

200 PRINT" { 2 GIU’ } {PUR} {BLK}UN PROGRAMMA 
PER L' IN-TRODUZIONE { 2 SPAZI }DI ROUT 

INEIN LINGUAGGIO MACCHINA"; : rem 202 

205 PRINT" A PROVA DI ERRORE { 5 GIU’}" 

:rem 226 

210 PRINT" {BLK}{ 4 SU} INDIRIZZO DI PARTEN 
ZA": INPUTS:F=1-F:C$=CHR$ (31+1 19*F) 

:rem 52 

220 IFS<2 56ORS>32767THENGOSUB3000 : GOTO 21 0 

: rem 2 

225 PRINT: PRINT: PRINT: PRINT :rem 123 

230 PRINT" {BLK}{ 3 SU}lNDIRIZZO CONCLUSIV 
O" : INPUTE: F=1 -F:C$=CHR$ ( 31 +1 1 9*F) 

:rem 170 


240 IFE<256ORE>32767THENGOSUB3000 :GOTO230 

:rem 234 

250 IFE<STHENPRINTC$ ; " {RVS } INDI RI ZZO CONC 
LUSIVO < INDIRIZZO DI PARTENZA 
{ 3 GIU ' } " :GOSUBl 000 :GOTO230 : rem 27 
260 PRINT: PRINT: PRINT :rem 179 

300 PRINT" {CLR}" ;CHR$ (14) :AD=S :rem 56 
31 0 PRINTRIGHTS ("0000"+MID$ (STR$ (AD) ,2) , 5 
);":"; :FORJ=lT06 :rem 234 

320 GOSUB570 : IFN=- 1 THENJ=J+N : GOTO320 

: r em 2 28 

390 IFN=-21 1THEN71 0 :rem 62 

400 IFN=- 204THEN790 :rem 64 

410 IFN=-206THENPRINT: PRINT" {GIU’ }INSERIS 
CI UN NUOVO { 4 SPAZI } INDI RI ZZO" ; : INPU 
TZZ : rem 42 

415 IFN=- 206THENIFZZ<SORZZ>ETHENPRINT" 
{RVS } ESCE DAL CAMPO DI VA-" : rem 150 

416 IFN=-206THENIFZZ<SORZZ>ETHENPRINT" 
{RVS }LORI INDICATO" :GOSUBl 000:GOTO41 0 

:rem 105 

417 I FN=- 206THENAD = ZZ : PRINT: GOTO 31 0 

:rem 238 

420 IFNO-1 96THEN480 :rém 133 

4 30 PRINT: INPUT" LISTATO : DA" ;F: PRINT," 

{ 2 SIN}A" ; : INPUTT :rem 29 
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440 IFF<SORF>EORT<SORT>ETHENPRINT"MINIMO" 
;S;"{SIN}, MASSIMO" ;E:GOTO430 

:rem 36 

450 FORI =FTOTSTEP6: PRINT: PRINTRIGHTS ("000 
0" +MID$ (STR$ (I) ,2) ,5) :rem 30 
455 FORK=0TO5: N=PEEK ( I+K) : IFK=3THENPRI NTS 
PC ( 1 0 ) ; : rem 34 

457 PRINTRIGHTS <"00"+MID$ (STR$ (N) ,2) ,3) ;" 

»"; :rem 157 

460 GETAS: I F A$ > " " THEN PR I NT : PRINT:G0T031 0 

: rem 25 

4 70 NEXTK: PRINTCHRS (20) ; : NEXTI : PRINT: PRIN 
T: GOTO 31 0 : rem 50 

480 IFN<0THENPRINT:GOTO31 0 :rem 168 

490 A ( J ) =N : NEXTJ : rem 199 

500 CKSUM=AD- INT (AD/ 2 56 ) *256:F0RI=lT06:CK 
SUM= (CKSUM+A (I) ) AND255:NEXT : rem 200 
510 PRINTCHRS (1 8) ; :GOSUB570 : PRINTCHRS (20) 

:rem 234 

515 IFN=CKSUMTHEN530 :rem 255 

520 PRINT: PRINT"LA RIGA E’ STATA INSE-RIT 
A IN MANIERA ERRATA" : rem 39 

525 PRINT" RI- INSERIRLA" : PRINT: GOSUBl 000 :G 



OT031 0 

: rem 

167 

530 

GOSUB2000 

: rem 

21 8 

540 

FORI = lT06:POKEAD+I-l ,A(I) 

: NEXT 




: rem 

80 

550 

AD=AD+6: IFAD<ETHEN31 0 

: rem 

212 

560 

GOTO 71 0 

: rem 

1 08 

570 

N=0: Z=0 

: rem 

88 

580 

PRINT" [<+>}" ; 

: rem 

79 

581 

GETAS : I FA$ = " " THEN 5 8 1 

: rem 

95 

585 

PRINTCHRS (20) ; : A=ASC (A$) : 

IFA= 1 30RA 

i=4 4 


ORA= 32THEN670 

: rem 

229 

590 

IFA>1 28THENN=-A: RETURN 

: rem 

1 37 

600 

IFA020THEN630 

: rem 

10 

610 

GOSUB690: IFI = 1 ANDT=44THENN = - 1 :PRINT" 


{SIN} {SIN}" ; :GOTO690 

: rem 

1 72 

620 

GOTO 570 

: rem 

1 09 

630 

IFA<48ORA>57THEN580 

s rem 

1 05 

640 

PRINTAS; : N=N* 1 0+A- 48 

: rem 

1 06 

650 

IFN>255THENA=20: GOSUBl 000 

: GOTO 600 




s rem 

229 

660 

Z=Z+1 : IFZ<3THEN580 

2 rem 

71 

670 

IFZ=0THENGOSUBl 000:GOT0570 :rem 

1 1 4 

680 

PRINT","; : RETURN 

2 rem 

240 

690 

S%=PEEK (209) +2 56* PEEK (210) +PEEK (21 1 ) 



2 rem 

1 49 

692 

FORI =1TO3:T= PEEK (S%-I) 

2 rem 

68 

695 

IFTO44ANDTO58THENP0KES% 

-I ,32: NEXT 



2 rem 

205 

700 

PRINTLEFTS ( " { 3 SIN}" ,1-1 ) ; :RETURN 



2 rem 

7 

710 

PRINT" {CLR} {RVS}*** SAVE 

* * * 



{ 3 GIU* }" 

2 rem 

236 

720 

INPUT" {GIU*} NOME DEL FILE";F$ 




2 rem 

1 99 

730 

PRINT: PRINT" { 2 GIU *} {RVS }N {OFF } ASTRO 


O { RVS }D{OFF}l SCO : (N/D) 

" 2 rem 

1 28 

740 

GETAS: IFA$0"N"ANDA$<>"D" 

THEN 7 4 0 




2 rem 

30 


750 DV=1 -7* ( A$ = "D" ) : IFDV=8THENF$ = "0: "+F$ 

:rem 158 

760 T$=F$ : ZK=PEEK (53) +256*PEEK ( 54 ) -LEN (T$ 
) :POKE782,ZK/256 :rem 3 

762 POKE781 , ZK- PEEK ( 782 ) * 256 : POKE780 , LEN ( 

T$ ) : SYS65469 :rem 109 

763 POKE780, 1 :POKE781 , DV: POKE782 , 1 :SYS654 

66 :rem 69 

765 POKE254 , S/256 : POKE253 , S- PEEK ( 254 ) * 256 
: POKE780, 253 :rem 12 


766 POKE782 ,E/256: POKE781 , E- PEEK ( 782) *256 
: SYS65496 : rem 124 

770 IF (PEEK (783) ANDl ) OR (ST AND! 9 1 ) THEN780 

: rem 111 

775 PRINT" {GIU* {OPERAZIONE CONCLUSA END 




2 rem 

1 52 

780 

PRINT" {GIU' {ERRORE DI REGISTRAZIO- 

NE. 


RIPROVA." : IFDV= 1 THEN720 

2 rem 

8 

781 

OPEN 1 5,8,15: INPUT# 1 5,El$, 

E2$ : PRINTEl $ 


; E2$ :CLOSEl 5: GOTO 720 

2 rem 

1 03 

782 

GOTO 7 20 

2 rem 

1 1 5 

790 

PRINT" {CLR} {RVS}*** LO AD 

* * * 



{ 2 GIU’ }" 

2 rem 

212 

800 

INPUT" { 2 GIU'} NOME DEL 

FILE”; F$ 




2 rem 

21 5 


810 PRINT: PRINT" { 2 GIU' } { RVS }N {OFF} ASTRO 
O {RVS }D {OFF } ISCO: (N/D)" :rem 127 
820 GETAS: IFA$<>"N"ANDA$O"D"THEN820 

:rem 28 


830 DV=1 -7* ( A$ = " D " ) : IFDV=8THENF$ = "0: "+FS 

: rem 157 

840 T$=F$ : ZK=PEEK (53) +2 56* PEEK ( 54 ) -LEN (T$ 

) :POKE782,ZK/256 : rem 2 

841 POKE781 , ZK- PEEK ( 782 ) *256: POKE780, LEN ( 

T$ ) : SYS65469 :rem 107 

845 POKE780 , 1 :POKE781 , DV: POKE782 , 1 :SYS654 
66 : rem 70 

850 POKE780,0:SYS65493 : rem 11 

860 IF (PEEK (783) ANDl ) OR (ST ANDl 9 1 ) THEN870 

: rem 111 

865 PRINT" {GIU ' {OPERAZIONE CONCLUSA .": GOT 
0310 : rem 1 4 2 

870 PRINT" {GIU* {ERRORE DI CARICAMENTO . RI P 
ROVA. {GIU' }":IFDV=1 THEN 800 : rem 43 

880 OPEN 1 5, 8, 1 5: INPUT# 1 5,El$ ,E2S : PRINTE1S 


r 

E 2$ : CLOSEl 5 : GOTO 800 

2 rem 

102 

1 000 

REM CICALINO 

: rem 

231 

1001 

POKE36878, 1 5: POKE36874, 1 90 

2 rem 

206 

1002 

FORW = 1 TO 3 0 0 : NEXTW 

: rem 

1 1 7 

1003 

POKE36878,0:POKE36874,0: RETURN 

: rem 

74 

2000 

REM CAMPANELLO 

2 rem 

1 30 

2001 

FORW=l 5TOOSTEP- 1 :POKE36878 

, W: POKE368 


76,240:NEXTW :rem 22 
2002 POKE36876,0: RETURN :rem 119 
3000 PRINTCS; " {RVS}NON IN PAGINA ZERO O 
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Tutti in riga 

Spesso mi sono imbattuto in un proble- 
ma che ho cercato di risolvere con lun- 
ghe ed estenuanti righe di programma, 
con tutti i rischi di errore connessi. Mi 
riferisco all' incolonnamelo delle cifre a 
destra anziché a sinistra. 

Vi sarei grato se poteste pubblicare sulla 
rivista una vostra risposta in merito, circa 
la possibilità o meno di risolvere facil- 
mente questo problema. 

Paolo Boiardi 

R. Purtroppo il BASIC del VIC 20 (al 
contrario del BASIC 3.5 del C16-Plus/ 
4) è molto limitato, e non possiede for- 
me di istruzioni PRINT tali da ottenere 
direttamente l’incolonnamento dei nu- 
meri a destra, oppure delle colonne di 
cifre allineate al punto decimale. 

Il problema è tuttavia facilmente risolvi- 
bile, se si fa ricorso alla locazione 211, 
che controlla la colonna in cui viene po- 
sizionato il cursore prima di un’istruzio- 
ne PRINT. 

I due programmi che seguono stampa- 
no rispettivamente una colonna di nu- 
meri allineata a destra, e una colonna 
di numeri allineata al punto decimale, 
leggendo i numeri da stampare in una 
istruzione DATA. Le modifiche da ap- 
portare per inserirli nei propri program- 
mi come subroutine sono veramente mi- 
nime e alla portata di tutti. 

20 INPUT"COLONNA" ;C: PRINT" {CLR } 

w 

30 FORI = 1 TO 1 0 : READD ( I ) : NEXT 
40 FORI = 1 TO 1 0 
50 K=C-LEN (STR$ (D ( I ) ) ) 

60 POKE21 1 , K 
70 PRINTD(I) 

80 NEXT 

90 DATAI 0,100,1000,12.3,2.5,1 , 1 
23,9,8.76,32.9 

20 INPUT"COLONNA" ;C: PRINT" (CLR) 

n 

30 FORI = 1 TO 1 0 : READD ( I ) : NEXT 


40 FORI * 1 T0 1 0 

50 K-C- LEN (STR$ (INT(D(I) ) ) ) 

60 POKE21 1 ,K 
70 PRINTD(I) 

80 NEXT 

90 D AT A 10, 100, 1000, 12.3,2.5,1 ,1 
23,9,8.76,32.9 


Per un facile “debug” 

Digitando molti listati della vostra e di 
altre riviste, mi capita molto spesso, dan- 
do il RUN al programma, di ottenere un 
messaggio di “ ?ILLEGAL QUANTITY 
ERROR IN . Listando la linea incrimi- 
nata. si tratta sempre di una linea conte- 
nente un'istruzione READ e una POKE. 
So che l'errore è dovuto ad un dato erra- 
to letto con la READ che. una volta im- 
messo in memoria con la POKE, genera 
l'errore. Il problema è che il messaggio 
d'errore fa riferimento alla linea conte- 
nente la READ e la POKE. e non alla 
linea DATA contenente il numero erra 
to. Soprattutto quando nel listato ci sono 
decine e decine di linee DATA, conte- 
nenti ognuna una decina di numeri, il 
lavoro di verifica risulta assai gravoso. 
Potreste cortesemente indicare se esiste 
qualche sistema per risalire in qualche 
modo alla linea DATA contenente l'er- 
rore ? 

Vincenzo De Marchi 

R. Come giustamente afferma, un mes- 
saggio di M ?ILLEGAL QUANTITY ER- 
ROR IN ...”, generato da una linea che 
legge (READ) dei numeri in istruzioni 
DATA, e li inserisce in memoria con 
una istruzione POKE, dipende da un 
numero errato in una delle istruzioni 
DATA. 

I numeri che possono essere “pokati” 
in memoria possono infatti assumere 
soltanto valori compresi nell’intervallo 
tra 0 e 255, pena il famoso messaggio 
d’errore. Se una linea DATA, per un 
errore di digitazione, contiene ad esem- 


pio un numero “invertito” (ad esempio 
525 invece di 255), questo errore non 
viene rilevato da ÓK-LIST in fase di 
battitura, e genera il messaggio d’erro- 
re di cui sopra, in corrispondenza della 
linea che effettua la POKE. Come fare 
per individuare a colpo sicuro la linea 
DATA “incriminata”? 

Fortunatamente ci viene in aiuto una 
coppia di puntatori nella memoria del 
computer, precisamente le locazioni 63 
e 64 di pagina zero, che contengono il 
numero dell’ultima linea DATA letta 
dal computer. Dopo che sia apparso il 
messaggio d’errore, sarà quindi suffi- 
ciente digitare in modo diretto: 

PRINTPEEK (63) + 256TEEK (64) 

Il numero che verrà stampato corri- 
sponde all’ultima linea DATA letta dal 
computer, prima che l’esecuzione del 
programma fosse interrotta dal messag- 
gio d’errore: sarà proprio lì che si “anni- 
da” il numero errato. 
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di S. Darling 

trad. ed adatt. 

di P. Ravizza 

Stiamo per assistere anche in 
Italia alla diffusione dei modem 
per home computer e alla proli- 
ferazione dei servizi pubblici di 
informazione via computer. Dia- 
mo un'occhiata all’attuale situa- 
zione americana, come sempre 
specchio di quanto avverrà da 
noi tra tre o quattro anni. 


S ono le sette di sera di un giovedì. 

La biblioteca ha chiuso alle cinque 
e Sammy Jordan deve preparare per il 
giorno dopo una relazione scolastica su 
un argomento di cui non ha in casa al- 
cun materiale da consultare. 

Il padre ha passato la giornata ad ana- 
lizzare le quotazioni di borsa e solo ora 
è arrivato a concludere quali azioni con- 
venga acquistare, tuttavia non può pas- 
sare l’ordine di acquisto al suo operato; 
re fino alle 9 di mattina del venerdì. È 
un problema, dal momento che dovrà 
partire per un viaggio d’affari lo stesso 
venerdì mattina alle 8. 

La madre, inoltre, si era ripromessa di 
passare in banca ritornando dall’ufficio, 
ma per alcuni contrattempi ha fatto tar- 
di e la banca era già chiusa. 

Infine il regalo richiesto per il complean- 
no della sorella Sally non si trova nel 
loro paese di residenza: occorre andare 
in città a 100 chilometri di distanza. 
Fortunatamente la famiglia ha recente- 
mente sottoscritto un abbonamento a 
un servizio di comunicazioni accessibile 
con il proprio computer Commodore 
munito di modem. Ecco un’occasione 
per far fruttare l’investimento. 

Sammy si mette in comunicazione per 
primo e trova tutte le informazioni che 
gli servono per la relazione da un data- 
base sotto forma di enciclopedia, quindi 
si collega ad un altro database di un 


gruppo di studio su quell’argomento, 
per ottenere ulteriori informazioni. Re- 
gistra su disco tutti i dati, li stampa ed 
inizia con tranquillità a stendere la sua 
relazione. 

Subito dopo il padre si collega con i 
servizi finanziari ed invia il suo ordine 
di acquisto. Può ora partire per il suo 
viaggio senza preoccupazioni: sa che 


l’operatore di borsa riceverà le istruzio- 
ni per l’acquisto appena avrà aperto 
l’ufficio il mattino dopo. Mentre è in col- 
legamento, egli controlla inoltre le pre- 
visioni del tempo per la zona in cui si 
dovrà recare e, visto che prevedono 
pioggia, mette in valigia impermeabile 
e ombrello. 

La madre si mette quindi in comunica- 
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zione con la propria banca (anch’essa 
membro del servizio di telecomunicazio- 
ni) e dispone il pagamento di alcune 
bollette attraverso il proprio conto cor- 
rente. Quindi esamina l’elenco del ma- 
teriale acquistabile presso i negozi con- 
venzionati con il servizio di telecomuni- 
cazioni e trovato quanto desiderato da 
Sally provvede ad ordinarlo. Le verrà 
recapitato a casa il giorno dopo. 
Questa è soltanto una situazione imma- 
ginaria, ma i servizi descritti sono oggi 
usati da migliaia di utilizzatori di compu- 
ter negli Stati Uniti. 

I servizi “on line”, cioè i network di in- 
formazione e telecomunicazione via 
computer e telefono, hanno compiuto 
una lunga strada in un breve periodo di 
tempo. Il più grande di questi network 
è “CompuServe”, con 145000 abbona- 
ti: iniziò come un servizio time sharing 
per servizi commerciali, ed aprì l’acces- 
so agli home computer solo nel 1979. 
A quei tempi c’erano meno di mille ab- 
bonati e soltanto 25 diversi database a 
cui avere accesso. ..Tempi pionieristici, 
se si pensa agli 800 diversi database 
disponibili oggi, più i database di specia- 
li “gruppi di interesse”: gruppi di perso- 
ne appassionati di un certo argomento, 
che effettuano studi e ricerche, metten- 
done i risultati a completa disposizione 
di chi si collega al servizio. I servizi offer- 
ti da CompuServe soddisfano pratica- 
mente qualsiasi esigenza, dalle prenota- 
zioni aeree alle notizie da tutto il mon- 
do. Il secondo grosso sistema w on line” 
americano è “The Source”, con circa 
60000 abbonati e centinaia di diversi 


database. 11 network “Dow Jones”, con 
circa 120000 abbonati, offre invece ser- 
vizi più specificamente commerciali, an- 
che se non esclude il settore home com- 
puter, offrendo tra l’altro recensioni di 
film, e notizie sportive e meteorologi- 
che. 

Se a questo punto si è un po’ annoiati 
dall’utilizzo del computer per i soliti gio- 
chini ormai sempre uguali, l’utilizzo di 
un modem può aprire una vera e pro- 
pria “finestra sul mondo”. Oltre ai ne- 
twork “istituzionalizzati”, infatti, negli 
Stati Uniti moltissimi utenti privati, ar- 
mati di una grande passione e di un po’ 
di soldi, creano in casa propria dei pic- 
coli centri di informazione compieta- 
mente gratuiti per chi vi si colleghi: na- 
turalmente, non saranno qui disponibili 
le ultime notizie o le quotazioni di borsa, 
ma “soltanto” dei database per infor- 
mazioni generali, posta elettronica e so- 
prattutto tantissimi programmi ad ac- 
cesso gratuito. 

Con un computer capace di lavorare in 
time sharing, un hard disk da qualche 
megabyte e un centralino con due o tre 
linee telefoniche chiunque può creare il 
proprio servizio informazioni aperto a 
tutti. 

Per gli italiani che già possiedono un 
modem, o che intendono acquistarlo, la 
realtà non è tuttavia così entusiasman- 
te: la poca diffusione che fino ad ora ha 
avuto questo accessorio rischia di la- 
sciare il proprio computer senza interlo- 
cutori. La situazione italiana attuale in 
questo settore ricorda un po’ i tempi 
pionieristici in cui comparirono i primi 


ricetrasmettitori CB: problemi di nor- 
mativa a parte, i primi possessori di tali 
apparecchi avevano grosse difficoltà 
nel trovare - al di fuori delle grandi 
città - qualcun altro con cui mettersi in 
contatto per scambiare quattro chiac- 
chiere via etere. 

Un’alternativa - anche se un po’ di- 
spendiosa - per i possessori italiani di 
modem può essere l’abbonamento al 
servizio intercontinentale di trasmissio- 
ne dati “Dardo”, che, dietro il pagamen- 
to di una cifra a forfait, consente di ac- 
cedere senza ulteriori spese a banche 
dati statunitensi. Il collegamento con gli 
Stati Uniti attraverso una normale linea 
telefonica, e con una telefonata inter- 
continentale, ha invece dei costi tali da 
scoraggiare immediatamente qualsiasi 
utente. Per chi fosse interessato, infor- 
mazioni sul servizio di telecomunicazio- 
ni “Dardo” possono essere richieste al- 
l’Italcable, il cui numero è il 170. 

Ci si aspetta tuttavia che il modem si 
diffonda anche nell’uso hobbistico del 
computer: molti utenti ne sono affasci- 
nati - chi non ricorda “Wargames”? -, 
ma contemporaneamente ne sono spa- 
ventati, temendo di dover avere a che 
fare con complicatissime procedure di 
comunicazione. In realtà il suo uso è 
molto semplice, e le cose da imparare 
non sono più complesse delle istruzioni 
che, ad esempio, occorre imparare 
quando si acquista un disk drive. 
Speriamo quindi che questa periferica 
conquisti anche in Italia la posizione che 
si merita, accanto ai nostri home e per- 
sonal computer. 


Un’occhiata allo SMAU ’85 


di M. Cristuib Grizzi 

Dal 19 al 24 Settembre si è tenu- 
ta a Milano, come di consueto, la 
rassegna SMAU 1985: in esposi- 
zione una gran varietà di perso- 
nal computer, periferiche ed ac- 
cessori vari, sia per l*hobby che 
per l’“office automation”. 

M algrado la tanto discussa flessio- 
ne nel mercato statunitense dei 
personal, a giudicare dalle presenze e 
dall’afflusso di visitatori a questa edizio- 
ne dello SMAU si direbbe che da noi il 
fenomeno quasi non esista. In realtà, a 
casa nostra il personal computer è an- 
cora da considerarsi come fenomeno 
nascente, e la sua diffusione negli uffici 
deve ancora diventare massiccia, forse 
perché restano da vincere resistenze 
psicologiche ed abitudini più che radica- 
te da parte dei potenziali utenti. 

Non si pone quindi - a differenza di 
quanto avviene oltre Atlantico - il pro- 
blema della saturazione del mercato e 
della forzata riconversione o addirittura 
chiusura di molte aziende del settore 
elettronico-informatico. Buon per noi, e 
buon per tutte quelle aziende del setto- 


re che hanno trovato nello SMAU un’ot- 
tima vetrina di presentazione per i pro- 
pri prodotti più tecnologicamente avan- 
zati. 

Tuttavia, malgrado la presenza di que- 
sto gran numero di aziende produttrici, 
sia famose che meno famose, quasi nul- 
la tra il parco macchina presentato si 
può classificare come novità assoluta 
nel settore dell’home computer. 

Ai nostri lettori interesserà comunque 
sapere della presenza allo stand Com- 
modore del nuovo CI 28 - a proposito 
del quale abbiamo già parlato piuttosto 
diffusamente su queste pagine — ac- 
compagnato dal suo drive dedicato 
1570 e dal nuovo monitor a colori 
1901. 

Ancora nulla invece per quello che do- 
vrebbe essere il cavallo di battaglia del- 
la Commodore nei prossimi anni: 
l’“Amiga”, un computer del quale avre- 
mo occasione di parlare ampiamente 
sul prossimo numero, e del quale antici- 
piamo soltanto che è un “Macintosh sty- 
le” che supera di gran lunga il “mae- 
stro” in prezzo e prestazioni (risoluzione 
grafica eccezionale, menu a scorrimen- 


to, finestratura integrale, multitasking, 
due canali audio e stereo, mouse, ani- 
mazioni e tante altre leccornie...). 



Una veduta dello Stand 
Commodore con il nuovo CI28 

Presenti anche i PC Commodore, dei 
compatibili PC-IBM, che si collocano in 
una fascia di mercato piuttosto ricca di 
agguerrita concorrenza e destinata co- 
munque quasi totalmente al settore ge- 
stionale. Sparsi qui e là i soliti C64, CI 6 
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Ecco come appariva lo Stand 
Sinclair 

e Plus/4, con i giochini più classici, pre- 
si d’assalto da nugoli di visitatori al di 
sotto dei vent’anni. 

La Sinclair presentava come unica novi- 
tà un drive per microfloppy da tre polli- 
ci e mezzo per il QL, che è stato italia- 
nizzato nei messaggi del sistema opera- 
tivo. 

E da registrare invece la prima compar- 
sa massiccia, ad una rassegna del gene- 
re, di strumenti e servizi per telecomuni- 
cazione tra computer: finalmente anche 
da noi si sta facendo più sentita l’esigen- 
za della rapida acquisizione e scambio 
di dati tra aziende e tra singoli utenti di 
personal computer, parallelamente a 
un nascente interesse per le telecomuni- 
cazioni da parte di molti hobbysti. Tra 
le prime iniziative italiane di banca dati, 
aperta a tutti gli utenti di personal muni- 
to di modem, le Pagine Gialle Elettroni- 
che sono un servizio offerto dalla Seat 
che, con un canone di abbonamento di 
circa centomila lire annue, offre tutte le 
informazioni contenute nelle Pagine 
Gialle di tutta Italia, con il vantaggio 
della ricerca per chiavi multiple dell’in- 
formazione desiderata. Gran parte del- 
le informazioni contenute nel database 
sono inoltre integrate da note aggiunti- 
ve (per esempio: capitale sociale, nume- 
ro dipendenti, partita IVA, ecc.). 

Come già lo scorso anno, presenti an- 
che i due stand della J .so/t, in cui veni- 
vano presentati i nostri libri, riviste e 
soprattutto i pacchetti software profes- 
sionali per i più diffusi personal. 

In conclusione, una rassegna che, pur 
non presentando strepitose novità, ha 
confermato una volta di più l’interesse 
di privati e aziende per il personal com- 
puter. 


Dalla grande 
INr edicola Jackson 

Tutto sul personal 
computer 

Personal 

L’unica rivista indipendente per gli utenti dei 
personal computer Olivetti. 

11 numeri all’anno: L. 5.000 a numero 
Abbonamento: solo L. 42.000 

medicai 

compurer 

Una novità assoluta per l’editoria 
tecnico-scientifica, studiata appositamente 
per i medici, la Rivista di personal computer, 
affari personali e tempo libero. 

11 numeri all’anno: L. 5.000 a numero 
Abbonamento: solo L. 45.000 



La prima rivista europea di personal 
computer, software e accessori. Con test, 
novità, analisi del mercato ... 

11 numeri all’anno: L. 5.000 a numero 
Abbonamento: solo L. 43.000 

COMPISOJOLA 

La rivista di informatica nella didattica per la 
scuola italiana. 

9 numeri all’anno: L. 3.000 a numero 
Abbonamento: solo L. 20.000 


PC 

v % i. % / • \ i 

L’unica rivista italiana dedicata ai sistemi 
MS-DOS, Personal computer IBM e 
compatibili. 

11 numeri all’anno: L. 5.000 a numero 
Abbonamento: solo L. 44.000 

Quando l'informazione fa testo 


In busta chiusa inviate questo coupon a: 
Gruppo Editoriale Jackson via Rosellini, 12 - 20124 Mi 

□ Desidero ricevere GRATIS un numero della Rivista 

(allego L. 1.000 in francobolli per contributo spese 
di spedizione) 

□ Inviatemi GRATIS il Catalogo della 

Biblioteca JACKSON (allego L. 1 000 
in francobolli per contributo spese di 
spedizione) 

Nome 

Cognome 

via 

CAP Città 
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Telecomunicazioni: primi passi 


di $. Bateman 

trad. ed adatt. 

di S. Colombo 


Entrare con il proprio computer 
nel mondo delle telecomunica- 
zioni può essere una cosa estre- 
mamente eccitante e divertente 
sotto molti aspetti. Tuttavia, per 
fare i primi esperimenti con un 
modem occorre avere almeno 
un’infarinatura circa le proble- 
matiche connesse con le teleco- 
municazioni tra computer. 


R ecentemente gli scrittori Stephen 
King e Peter Straub hanno scritto 
“a quattro mani” un nuovo libro del ge- 
nere horror: malgrado essi risiedessero 
in città americane lontanissime tra loro, 
durante la stesura del libro si scambia- 
vano quotidianamente ed istantanea- 
mente le porzioni di testo che man ma- 
no venivano scritte. King, dalla sua casa 
nel Maine, riceveva regolarmente nuo- 
vo materiale e revisioni via telefono - 
direttamente nel suo word processor - 
da parte di Straub in California. 

King e Straub non sono i primi ad usare 
questo tipo di telecomunicazioni: il loro 
è solo un esempio del modo in cui le 
possibilità di comunicazioni tra compu- 
ter stanno cambiando il nostro modo di 
lavorare e - perché no - di divertirci. 
Negli Stati Uniti migliaia di utenti Com- 
modore già fanno uso regolare delle 
possibilità di comunicazione dei loro 
computer attraverso le linee telefoniche 
e, se le previsioni effettuate dalle case 
produttrici sono corrette, centinaia di 
persone ogni mese si aggiungono a que- 
sta schiera. 

Per molti utenti di computer, tuttavia, 
la telecomunicazione è una pratica cre- 
duta frustrante e complicata. Anche chi 
ha già una notevole pratica di program- 
mazione o nell’uso di programmi utili 
come i word processor, e sia psicologi- 
camente attirato dalle telecomunicazio- 



ni, al solo pensiero di avere a che fare 
con problemi di parità, bit di stop, lun- 
ghezza della parola, ecc., non tenta 
nemmeno una pur timida sperimenta- 
zione. 

In realtà occorre semplicemente impa- 
rare un certo numero di nozioni fonda- 
mentali, dopo di che ci si potrà avvicina- 
re al vastissimo mondo delle telecomu- 


nicazioni per trarne tutte le soddisfazio- 
ni che esso è in grado di offrire. 

11 modo più semplice per capire i proble- 
mi connessi alle telecomunicazioni è se- 
guire la strada percorsa da una singola 
informazione, dal momento in cui la di- 
gitate sulla tastiera del vostro Commo- 
dore fino al momento in cui raggiunge 
le linee telefoniche. 


I 
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Inviare un messaggio attraverso il com- 
puter significa seguire certe regole fis- 
se, proprio come una vacanza richiede 
necessariamente un piano di viaggio, un 
veicolo e una destinazione. Un compu- 
ter che effettui delle telecomunicazioni 
richiede analoghe definizioni di alcuni 
parametri. 

Innanzi tutto vediamo quali sono i com- 
ponenti necessari per effettuare delle 
telecomunicazioni: come molti utenti di 
computer hanno ormai imparato, occor- 
rono fondamentalmente tre cose. Un 
modem , che collega il computer a un 
telefono , e un programma di comunica- 
zione, , che vi permetta di far sapere al 
computer e al modem che cosa, quan- 
do, dove e come volete comunicare. 
Per i computer Commodore esiste già 
una larga gamma di modem e di pro- 
grammi di telecomunicazione, le cui 
prestazioni e complessità sono diretta- 
mente proporzionali al loro prezzo. 
Prima di esaminare come questi due 
componenti - modem e programma di 
comunicazione - lavorano insieme, ri- 
torniamo ancora un momento alla ta- 
stiera del computer ed al nostro telefo- 
no di casa. 

L’apparecchio telefonico è un apparato 
analogico : trasmette suoni continui 
oscillanti tra due valori, minimo e massi- 
mo, proprio come un pittore che, dispo- 
nendo solo del bianco e del nero, po- 
trebbe mischiarli per ottenere un’infini- 
ta varietà di grigi. Il computer, al con- 
trario, rappresenta ogni carattere in for- 
ma digitale: ogni bit della memoria con- 
tiene uno 0 oppure un 1, e il pittore del 
paragone precedente può dipingere so- 
lo usando il nero oppure il bianco, il 
grigio non è ammesso. 

Come ormai tutti dovrebbero sapere, la 
codifica dei caratteri all’interno del 
computer si rifà alle norme ASCII 
(American Standard Code for Informa- 
tion Interchange). In particolare i com- 
puter Commodore usano una propria 
forma di ASCII, spesso chiamata Com- 
modore ASCII o PET ASCII, che differi- 
sce leggermente dallo standard. Una 
delle differenze è che il vero ASCII usa 
sette bit per carattere, mentre il Com- 
modore ASCII ne usa otto. Se si deside- 
ra comunicare con un altro computer 
(che non necessariamente dovrà essere 
un altro Commodore), i caratteri che 
digitiamo sulla tastiera dovranno per 
prima cosa essere convertiti in vero 
ASCII. Ecco una delle prime funzioni 
svolte dall’insieme modem/programma 
di comunicazione: quest’ultimo conver- 
te i caratteri digitati in vero ASCII e li 
invia al modem, il quale provvede a sua 
volta a convertirli in segnali sonori, che 
possono essere trasmessi attraverso la 
linea telefonica. 

I modem più popolari per computer 
Commodore sono attualmente il 1600 
VIC MODEM e il 1650 AutoModem - 
prodotti dalla stessa Commodore -, 
che si adattano a VIC 20, C64 e Plus/4 
(il C16 non è dotato della possibilità di 
collegamento a un modem). Esiste poi 


una vasta gamma di modem prodotti 
da altre aziende, perfettamente compa- 
tibili con i computer Commodore. An- 
che se le capacità di un modem variano 
a seconda del suo prezzo di acquisto, 
la funzione fondamentale di ogni mo- 
dem è MODulare il segnale digitale pro- 
veniente dal computer in forma analogi- 
ca e DEModulare il segnale proveniente 
in forma analogica dal telefono, trasfor- 
mandolo in forma digitale. 

Ci sono tre scelte da operare per rego- 
lare il modem e tre altre scelte per rego- 
lare invece il programma di comunica- 
zione. Una volta chiariti i contenuti di 
queste scelte si potrà tranquillamente 
iniziare la pratica delle telecomunicazio- 
ni. 

Le tre cose che il modem deve “sapere” 
prima di ricevere qualunque messaggio 
dal computer sono: 

1. Se si deve predisporre a ricevere o 
ad inviare dei dati. 

2. A quale velocità viaggiano i dati. 

3. Se i messaggi inviati devono o meno 
essere dotati di una eco con funzioni di 
controllo degli errori. 

L’eco consiste semplicemente nel rein- 
viare al computer trasmittente i caratte- 
ri ricevuti, in modo che esso possa con- 
frontarli con quelli inviati e rilevare 
eventuali discrepanze dovute a disturbi 
sulla linea telefonica. 

Usando i termini di “gergo”, si ha che 
il punto 1 corrisponde al mode (origina- 
te o Answer), il punto 2 al baud rate 
(velocità misurata in bit al secondo) e il 
punto 3 corrisponde al duplex (half du- 
plex = senza eco, full duplex = con eco). 
Se desideriamo quindi inviare un mes- 
saggio, regoleremo il modem su origina 
te , mentre il computer che dovrà riceve- 
re sarà regolato su answer. La velocità 
di trasmissione più comune disponibile 
con i modem economici è di 300 baud 
(che corrisponde al trasferimento di cir- 
ca 30 caratteri al secondo). Modem più 
sofisticati possono arrivare anche a 
2400 baud, ma con le linee telefoniche 
che ci ritroviamo ad avere una velocità 
bassa risulta senz’altro molto più affida- 
bile, pur richiedendo un tempo di impe- 
gno superiore della linea telefonica. En- 
trambi i modem - trasmittente e rice- 
vente - dovranno essere regolati sulla 
stessa velocità. 

La terza opzione, il duplex, come detto 
consente di scegliere tra la possibilità di 
eco dei caratteri e la trasmissione nor- 
male. Con la trasmissione in eco (full 
duplex), digitando una frase da trasmet- 
tere, ce la vedremo duplicata sul video 
dopo pochi secondi (cioè dopo il tempo 
necessario ad inviare i caratteri all’altro 
computer ed a compiere il percorso in- 
verso). 

Il full duplex è ovviamente più lento 
dell’half duplex, ed è di uso conveniente 
solo se si trasmettono dati veramente 
importanti, in cui un solo numero tra- 
smesso male provocherebbe molti in- 
convenienti (si pensi ad esempio alla 
trasmissione di un programma con mol- 
te linee DATA). Poiché molto spesso 


sia il modem che il programma di comu- 
nicazione hanno la possibilità di regola- 
zione tra half e full duplex, occorre che 
entrambi siano regolati sulla stessa op- 
zione. Se vi capitasse ad esempio di di- 
gitare in trasmissione la stringa “PIP- 
PO”, e di vedere sul video un eco 
“PPIIPPOO”, probabilmente il vostro 
modem e il programma di comunicazio- 
ne non sono regolati in accordo. 

I programmi di comunicazione variano 
enormemente le loro potenzialità da ca- 
so a caso: ci sono semplici programmi 
in BASIC e complessi e lunghi program- 
mi in linguaggio macchina. Da caso a 
caso cambia, ovviamente, la velocità di 
esecuzione ed il numero di opzioni di- 
sponibili. Tra queste ultime ce ne sono 
tre fondamentali: bit di stop, lunghezza 
della parola e parità. Ritornando all’in- 
glese (usato più che mai nel gergo delle 
telecomunicazioni), si ha che l’opzione 
di stop bit è un’opzione si/no. Il bit di 
stop viene aggiunto automaticamente 
alla fine di ogni stringa di sette bit, per 
segnalare la fine di un singolo caratte- 
re. 

L’opzione di word lenght stabilisce se il 
computer deve considerare i caratteri 
composti da sette o da otto bit, mentre 
l’opzione di parity, in due parole, serve 
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a fornire al computer un ulteriore siste- 
ma di controllo degli errori in trasmissio- 
ne, settando un ulteriore bit. 

Sembra complicato, ma quasi tutti i 
buoni programmi di telecomunicazione 
prevedono per default i valori comune- 
mente più usati (full duplex, 300 baud, 
originate, no parity, 1 stop bit, word 
lenght 8). 

Esiste poi una serie di opzioni che può 
I 


essere o meno presente nei programmi 
di telecomunicazione, a seconda della 
loro qualità. Diamo ora un piccolo glos- 
sario dei termini più usati nelle teleco- 
municazioni: 

Auto answer : la possibilità da parte del 
sistema computer/modem di risponde- 
re automaticamente a chiamate telefo- 
niche provenienti da altri computer. 
Auto diai : la possibilità da parte del si- 


stema computer/modem di effettuare 
automaticamente chiamate a dati nu- 
meri telefonici e di riprovare nel caso 
la linea sia occupata. 

Buffer : un’area nella memoria del com- 
puter usata per l’immagazzinamento 
temporaneo di dati durante la trasmis- 
sione o la ricezione. 

Bulletin Board System : un servizio pub- 
blico basato su computer per lo scambio 
di programmi e informazioni (prossima- 
mente, ci auguriamo, anche in Italia). 
Carrier signal : il segnale con cui un com- 
puter indica a un altro computer che è 
pronto a stabilire la comunicazione. 
Downloading : il ricevere dati, come un 
file dati o un programma, da un altro 
computer. 

Uploading : l’inviare dati, come un file 
dati o un programma, a un altro compu- 
ter. 



Le Novità Jackson 
puoi acquistarle 
in via Mascheroni 14 
a Milano e in tutte 
le migliori librerie. 
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OK-LIST 

S appiamo tutti quanto sia difficile di- 
gitare correttamente un programma 
(ovviamente, se non si dispone della 
cassetta allegata a SUPERCOMMO- 
DORE!). Errori di battitura anche banali 
possono provocare il malfunzionamento 
del programma stesso, o anche il blocco 
completo del sistema, obbligandoci a ri- 
fare il lavoro. 

Ma il punto di forza dei calcolatori è che 
essi eccellono nei compiti noiosi e che 
richiedono precisione. Scoprire un erro- 
re nella battitura di un listato è appunto 
un compito noioso, quindi perché non 
sfruttare il tuo computer per controllare 
ijistati da te digitati? 

È proprio questo lo scopo di OK-LIST, 
il programma che ti permetterà di ri- 
sparmiare tempo e fatica. Annidato al- 
l’interno del tuo computer, OK-LIST 
controlla automaticamente ogni riga 
battuta, mostrandoti un numero in cima 
allo schermo ogni volta che premi il ta- 
sto RETURN. Un numero corrisponden- 
te nel listato del programma pubblicato 
ti permette il confronto, ed uno sguardo 
è sufficiente per avere la conferma di 
aver digitato la linea correttamente. 
OK-LIST è un breve programma in lin- 
guaggio macchina residente nel buffer 
del registratore. Esso rimane in tale zo- 
na finché spegni il computer o usi l’unità 
a cassette. 

Comm digitare OK-LIST 

Vi sono due versioni di OK-LIST, una 
per VIC 20 e l’altra per C16 e Plus/4. 
Digita la versione adatta al tuo compu- 
ter, facendo attenzione a non commet- 
tere errori (per fortuna il listato è molto 
breve!). Dopo aver finito salvalo su di- 
sco o nastro, per lo meno un paio di 
volte, prima di mandarlo in esecuzione 
con il comando RUN, perché il pro- 
gramma BASIC, dopo aver memorizza- 
to la routine in linguaggio macchina (le 
istruzioni DATA), si autocancella. 

Comm mi umm OK-LIST 

A questo punto puoi iniziare a battere 
il tuo primo listato M a prova di errore”. 
Se non hai OK-LIST in memoria, carica- 
lo e attivalo con RUN. 

Digita quindi la prima linea di program- 
ma: come puoi vedere, in fondo ad essa 
c’è la parola M :rem” seguita da un nu- 
mero, che si chiama checksum. 

NON COPIARE QUESTA PARTE 
DELLA LINEA! Ora premi il tasto RE- 
TURN, come al solito. In alto a sinistra 
apparirà il checksum; confrontalo con 
quello che vedi scritto sulla rivista dopo 
tt :rem”. Se l due numeri sono uguali, 
vuol dire che la linea è stata digitata 
correttamente, altrimenti controllala, 
perché evidentemente hai commesso 
un errore. Facile, no? 

OK-LIST non è pignolo per quel che 
riguarda ali spazi bianchi, dato che non 
fa caso alla loro presenza. Ciò torna a 
tuo vantaggio, dal momento che la spa- 


ziatura non è, in genere, importante. 
Ma all’interno delle istruzioni PRINT gli 
spazi spesso si rivelano necessari, quin- 
di presta attenzione quando digiti que- 
sto tipo di istruzione. Un’altra cosa a 
cui devi badare è che usando le forme 
abbreviate dei comandi (ad esempio ? 
per PRINT) il checksum visualizzato 
non coinciderà con quello presente sul 
listato. Ciò è tuttavia risolvibile, pre- 
mendo il tasto RETURN su una linea 
dopo averla listata: le abbreviazioni sa- 
ranno ricodificate nella loro forma inte- 
ra e quindi OK-LIST sarà in grado di 
svolgere perfettamente la sua funzione. 
In questo modo, inoltre, avrai la possibi- 
lità di controllare interi gruppi di righe 
in una volta sola. 

Ovviamente, nessuno è perfetto, ed an- 
che OK-LIST ha qualche limite: se per 
caso ti capitasse (ma è un errore poco 
frequente) di “anagrammare” durante 
la digitazione una linea (per esempio 
invece di battere 10 PRINT U VAI”, digiti 
per errore 10 PRINT“VIA”), OK-LIST 
non se ne accorgerebbe. Inoltre la pre- 
senza del carattere SHIFT-SPAZIO mo- 
difica il numero di checksum rispetto al 
carattere SPAZIO normale, anche se la 
differenza non risulta visibile sul video 
del tuo computer. 

Se intendi sospendere il lavoro di digita- 
zione - o lo hai terminato - puoi salva- 
re su nastro o disco il tuo programma: 
ricordati comunque di premere RUN/ 
STOP e RESTORE su VIC 20, oppure 
RUN/STOP e RESET su C16 e Plus/4 
prima di dare il comando SAVE. Al mo- 
mento di riprendere il lavoro, tuttavia, 
non potrai più utilizzare OK-LIST, dal 
momento che qualsiasi operazione su 
cassetta lo distrugge. 

Se vuoi disabilitare OK-LIST in qualun- 
que momento, senza perdere il tuo pro- 
gramma in memoria, premi RUN/ 
STOP e RESTORE su VIC 20 oppure 
RUN/STOP e RESET su C16 e Plus/4. 
Per riattivarlo batti: 

SYS 886 
Buon lavoro! 


OK-LIST 

versione per Vie 20 

10 PRINT" ICLR) ATTENDERE PREGO... 

N 

1 1 FORI -886T01 01 8 : READA:CK*CK+A: 
POKEI * A: NEXT 

12 IF CK< >1 7639 THEN PRINT" 

(GIU' ) ERRORE NELLE ISTRUZIONI 

DATA": END 

13 SYS886 : PRINT" (CLR) { *2 GIU' }OK 
-LIST ATTIVATO.": NEW 

14 DATAI 73,036,003,201 , 1 50,208 

15 DATA001 » 09t> #141 #151 ,003,173 

16 DATA0 37,003,141 ,152,003,169 

17 DATAI 50,141 ,036,003,169,003 

18 DATAI 41 ,037,003,169,000,133 

19 DATA254, 096,032, 087,241 , 1 33 

20 DATA251 ,134,252,132,253,008 

21 DATA201 ,01 3,240,01 7,201 ,032 

22 DATA240,005,024, 101 ,254,1 33 



23 DATA254, 1 65,251 , 1 6b, 252, 1 64 

24 DATA253, 040, 096, 169,01 3,032 

25 DATA210, 255, 165,214,141 ,251 

26 UATA00 3, 206, 251 , 00 3, 1 69, 000 

27 DATAI 33,216, 169,01 9,032,210 

28 DATA255, 169,018,032,210,255 

29 DATA 169,058,032,210,255, 166 

30 DATA 2 54 , 169,000, 1 33,254, 1 72 

31 DATA151 ,003,192,087,208,006 

32 DATA032, 205, 189,076,235,003 

33 DATA032, 205, 221 , 169,032,032 

34 DATA 2 10,255,032,210, 255, 1 73 

35 DATA251 ,003, 1 33,214,076, 1 73 

36 DATA003 


OK-LIST 

versione per C16 e Plns/4 

10 PRINT" (CLR } ATTENDERE PREGO 

M 

11 FORI =886TOl 01 8 : RKADA :CK *CK+A : 
POKEI , A: NKXT 

1 2 I FCK< > 1 4 7 I 4THENPRI NT" (GIU ' } ER 
RORE NELLE ISTRUZIONI DATA” : E 
ND 

li SYSB 86 : PRINT" ICLR 1 ( 2 GIU'lOK 
-LIST ATTIVATO.": NEW 

14 DATAI 73.034.003,201 ,150,208 

15 DATA001 ,096, 1 41 , 1 SI ,003, 1 7i 

16 DATA035, 003, 1 41 , 152,003, 169 

17 DATA150, 141 ,034,003,169,003 

18 DATAI 41 ,035,003, 169,000, 133 

19 DATA006, 096,032,232,235,133 

20 DATA003 , 1 34, 004, 1 32,005,008 

21 DATA201 ,01 3,240,01 7, 201 ,032 

22 DATA240,005,024, 1 01 ,006, 1 33 

23 DATA006 , 165,003,166,004,164 

24 DATA00S, 040, 096, 169,013,032 

25 DATA2 10,255,165,205,141,251 

26 DATA003, 206, 251 ,003,169,000 

27 DATAI 33, 207, 1 69,019,032,210 

28 DATA2 55 , 169,018,032,210,255 

29 DATAI 69,058,032,210,255,166 

30 DATA006 , 169,000, 1 33,006, 1 72 

31 DATAI 51 ,003, 1 92,232,208,006 

32 DATA0 32 , 095, 164,076,235,003 

33 DATA032, 007, 208, 169,032,032 

34 DATA2 10,255,032,210,255,173 

35 DATA251 ,003, 1 33, 205,076, 173 

36 DATA003 
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di J. J. Shaughnessy 

trad. ed adatt. 

di M. Cristuib Grizzi 


Come riallineare 
la testina del 
drive 1541 


Proprio come il registratore a 
cassette, anche il disk drive va 
soggetto a disallineamenti della 
testina di lettura /scrittura che - 
alla lunga - impediscono la cor- 
retta lettura dei dischi prece- 
dentemente registrati. Ecco al- 
cuni consigli per effettuare da 
soli il riallineamento della testi- 
na. 


Q uesto articolo vi fornisce dei consi- 
gli tali da ottenere un risparmio, in 
spese di manutenzione del drive, suffi- 
ciente per abbonarsi a SUPERCOM- 
MODORE per molti anni a venire... Te- 
nendo conto che per l’operazione di rial- 
lineamento delle testine sono media- 
mente richieste dai tecnici dalle cento 
alle duecentomila lire, il risparmio otte- 
nuto con il compiere da sé l’operazione 
risulta senz’altro notevole. 

Le istruzioni date in questo arti- 
colo comportano operazioni su 
un apparecchio elettrico (il dri- 
ve) sotto tensione: esiste quindi 
il pericolo di subire una scarica 
elettrica in caso di qualche erro- 
re operativo. Si sconsiglia per- 
ciò di effettuare le operazioni 
qui descritte a chi non sia per- 
fettamente in grado di eseguirle 
correttamente. SUPERCOMMO- 
DORE non si assume pertanto al- 
cuna responsabilità circa even- 
tuali danni a persone o cose do- 
vuti alle operazioni descritte in 
questo articolo. 

Le operazioni da compiere per il rialli- 
neamento della testina invalidano inol- 
tre la garanzia del drive, quindi prima 
di procedere assicuratevi che questa sia 
scaduta (in caso contrario, visto che 
l’operazione è coperta da garanzia, vi 
conviene farla effettuare da un tecni- 




co). mazioni (programmi, dati) sono conte- 

L’unico attrezzo richiesto per l’opera- nute nei dischetti. Ogni disco possiede 
zione è un piccolo cacciavite a croce. 35 tracce, disposte concentricamente, 

con la traccia numero 1 all’esterno e la 
. 35 la più interna. Ogni traccia possiede 

Informazioni preliminari da 17 a 21 blocchi ed ogni blocco con- 

Per prima cosa vediamo come le infor- tiene 256 byte di dati. La traccia centra- 
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le è la 18, con funzioni speciali. 

Il primo blocco (blocco 0) della traccia 
18 viene usato per immagazzinare il no- 
me ed il codice ID che avete assegnato 
al disco, altri codici speciali e la BAM 
(Block Availability Map). II drive usa la 
BAM per sapere quali blocchi risultano 
liberi per il salvataggio di nuovi dati e 
quali sono invece occupati da preceden- 
ti registrazioni. I blocchi da 1 a 18 della 
traccia 18 sono invece usati per conte- 
nere la directory del disco. 
Quest’ultima contiene i nomi dei file con 
le informazioni circa il tipo di file, la sua 
lunghezza (numero di blocchi occupati) 
e il suo punto di inizio all’interno del 
disco. Tutti i blocchi rimanenti del disco 
servono a contenere i programmi o i 
dati (664 blocchi su un disco vuoto). 
L’immagazzinamento dei file inizia sulle 
tracce 17 e 19 e procede in direzione 
radiale, sia verso il centro che verso 
l’esterno, a partire dalla traccia centra- 
le, con le tracce 1 e 35 che rappresenta- 
no quindi le ultime tracce usabili prima 
che il disco sia completamente pieno. 
Quando il drive comincia ad uscire dal 
corretto allineamento le prime tracce a 
diventare illeggibili sono queste ultime, 
la 1 e la 35. Noterete che è possibile 
caricare programmi nella parte iniziale 
della directory, mentre quelli nella sua 
parte finale si caricheranno con difficol- 
tà (o non si caricheranno affatto). 

In generale, i programmi elencati per 
primi nella directory sono immagazzina- 
ti nella parte centrale del disco, dal mo- 
mento che sono stati salvati per primi. 
Tuttavia, quando il disallineamento del- 
la testina aumenta il drive non è nem- 
meno più in grado di caricare la directo- 
ry. 

Un altro segno del progressivo disalli- 
neamento può essere il dilatarsi del 
tempo di caricamento dei programmi, 
con 1’accendersi e spegnersi della luce 
rossa del drive, e l’insorgere di strani 
rumori dovuti al resettarsi della testina 
contro il punto di stop quando il tentati- 
vo di leggere un blocco ha esito negati- 
vo. 

Su un drive perfettamente allineato la 
luce rossa rimane completamente acce- 
sa per tutto il tempo necessario al cari- 
camento di un programma, con una ec- 
cezione: alcune aziende proteggono i 
propri dischi commerciali, creando deli- 
beratamente alcuni errori su certi bloc- 
chi del disco. Durante o dopo il carica- 
mento questi blocchi vengono controlla- 
ti dal programma e se risultano rovinati 
come il programma si aspetta, tutto va 
liscio, mentre se risultano leggibili - e 
quindi il disco è un disco “pirata” -, il 
programma generalmente si autocan- 
cella (le protezioni recentissime e più 
“cattive” arrivano addirittura a rifor- 
mattare il disco, azzerare la RAM del 
computer e sbatacchiare talmente la 
povera testina del drive da metterlo 
fuori uso fino a che venga riallineato 
N.d.r.). 

Una delle principali cause del disallinea- 
mento delle testine è infatti l’uso di di- 




schi commerciali con questo tipo di pro- 
tezione ad errori: il ripetuto sbattere 
della testina contro il suo punto di fine 
corsa provoca alla lunga il disallinea- 
mento. Anche il trasporto del drive, con 
i conseguenti sbatacchiamenti della te- 
stina, può provocare il disallineamento 
o, naturalmente, l’usura dovuta ad un 
gran numero di accessi ai dischi. 

Il test più semplice per valutare lo stato 
della testina consiste nel mandare in 
esecuzione il programma “Performance 
test”, contenuto nel disco Commodore 
fornito insieme al drive stesso, oppure 
il programmino che viene listato più 
avanti. Vediamo ora quali sono i passi 
necessari per effettuare il riallineamen- 
to: si controllerà prima l’allineamento 
rispetto alla traccia 18, caricando una 
directory molto lunga. Si verificherà in 
seguito l’allineamento rispetto a tracce 
più interne e più esterne attraverso il 
breve programma qui listato. 

Siamo pronti per cominciare. Un’ultima 
raccomandazione è di prestare la massi- 
ma attenzione a non toccare parti del 
drive sotto tensione e di leggere più vol- 
te che cosa si deve fare prima di opera- 
re sul drive. 


Disassemblaggio del drive 

Ci riferiremo a destra, sinistra, davanti 
e dietro, pensando che il drive si trovi 
sul tavolo con la fessura di introduzione 
dei dischetti esattamente di fronte a voi. 



1. Spegnete il drive e staccate tutti i 
cavi dalla sua parte posteriore. 

2. Appoggiate su una superficie piana 
il drive in posizione capovolta, e rimuo- 
vete le quattro viti a croce. 

3. Riportate il drive in posizione norma- 
le e togliete con delicatezza il suo coper- 
chio superiore. 

4. Alcuni tipi di 1541 sono dotati di un 
ulteriore coperchio metallico, mentre 
altri ne sono sprovvisti. Nel caso il vo- 
stro drive ne sia provvisto, smontatelo, 
svitandone le due viti di fissaggio sul 
suo fianco sinistro. 

5. Il led verde del drive è collegato alla 
scheda ora in vista mediante due fili ed 
una spinetta. Segnatevi l’orientamento 
della spinetta e staccatela dalla sche- 
da. 

6. Rimontate, se presente, il coperchio 
interno di metallo. 

7. Rimuovete la metà inferiore del con- 
tenitore plastico del drive, svitandone 
le sei viti. Estraete quindi il drive. 

8. Sistemate il drive in posizione capo- 
volta su di una superficie piana in pros- 
simità del computer. A questo punto 
dovreste trovare il motore passo-passo 
e le due viti che lo tengono in posizione 
(foto 1). Queste viti si trovano all’inter- 
no di due aperture e permettono - se 
allentate - di ruotare di qualche grado 
il motore stesso. 

9. Inserite il cavo di alimentazione nella 
parte posteriore del drive e la spina in 
una presa di corrente. Attenzione! 
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Da questo momento in poi NON toccate 
nessuno dei componenti elettrici esposti 
del drive nella sua parte posteriore. Si 
può soltanto toccare l’interruttore di ali- 
mentazione per accenderlo e spegnerlo. 
Si può inoltre toccare la gabbia di me- 
tallo protettiva che avvolge il drive. Se, 
per una ragione qualsiasi, questa affer- 
mazione risultasse falsa, staccate imme- 
diatamente il cavo di alimentazione dal- 
la rete e portate il drive da un buon 
tecnico: si tratta di un corto circuito in- 
terno al drive, ed i suoi problemi sono 
molto più gravi di un semplice disalli- 
neamento della testina. 


Procedura di allineamento 

1. Collegate il cavo seriale tra drive e 
computer. 

2. Accendete il drive mediante il suo 
interruttore, ed accendete anche il com- 
puter e la TV o il monitor. La luce verde 
del drive non si accenderà, essendo sta- 
ta scollegata precedentemente. 

3. Pulite lo schermo con SHIFT e CLR/ 
HOME. 

4. Inserite un disco, preferibilmente 
contenente molti programmi e quindi 
con una directory molto lunga. Ricorda- 
te che, essendo il drive capovolto, do- 
vrete inserire capovolto anche il disco. 

5. Digitate LOAD“$”,8 e premete RE- 
TURN. Si accenderà il led rosso e com- 
parirà il messaggio SEARCHING FOR 
$. Apparirà quindi la scritta LOADING 
o, se il vostro drive è proprio messo 
male, otterrete il messaggio FILE NOT 
FOUND. 

Infine apparirà il consueto READY con 
il cursore. In alcuni casi il drive troverà 
la directory e cercherà di caricarla sen- 
za riuscirci: si otterrà quindi un “blocco” 
del sistema (il cursore non ritorna sullo 
schermo). In questo caso spegnete e ri- 
accendete il computer e provate con un 
altro disco. 

6. Durante il caricamento della directo- 
ry osservate la luce rossa del drive: se 
rimane accesa per tutto il tempo di cari- 
camento, passate al punto 8. Se la luce 
rossa si accende e si spegne più volte, 
o se ottenete il messaggio FILE NOT 
FOUND, proseguite con il punto 7. 

7. Dovete rendere il drive sufficiente- 
mente operativo per caricare la directo- 
ry. 

Premete CLR/HOME (senza SHIFT) 
per portare il cursore nell’angolo supe- 
riore sinistro dello schermo, sopra la let- 
tera L di LOAD“$ w ,8. Con il cacciavite 
a croce allentate (senza svitarle comple- 
tamente!) le due viti del motore passo- 
passo (possono essere molto resistenti 
allo svitamento). Non è necessario spe- 
gnere il drive o togliere il disco durante 
questa operazione. Ruotate il motore 


passo-passo di circa un millimetro-un 
millimetro e mezzo in senso orario, e 
riavvitate a fondo le due viti. Premete 
RETURN sulla tastiera del computer e 
ripetete il punto 6. 

Se la directory non viene ancora carica- 
ta correttamente, ruotate il motore pas- 
so-passo in senso antiorario e provate 
ancora. Può darsi che dobbiate compie- 
re più volte questa operazione, fino a 
trovare la posizione ottimale del motore 
passo-passo che consenta un buon cari- 
camento della directory. 

8. Se la directory carica bene, ciò signi- 
fica che l’allineamento sulla traccia 18 
è accettabile. La 18 è la traccia più 
facile da allineare, e sembra dotata di 
una maggiore tolleranza nei confronti di 
tarature non ottimali. Le tracce 1 e 35 
sono un po’ più critiche. 

Ritornando al vostro monitor, dopo 
aver caricato la directory il cursore do- 
vrebbe essere lampeggiante sotto il 
messaggio READY. Non listate la direc- 
tory! 

Digitate NEW e premete RETURN. 

9. Digitate ora il seguente programmi- 
no: 

10 0PEN15,8,15:0PEN5,8,5,"#" 

20 PRINT#15,"U1 : ” 5 ; 0 ; 1 ; 1 :GOS 
UB60 

30 PRINTI15,"Ul:"5;0;35;l:GO 
SUB60 

40 CLOSE5:CLOSEl 5 
50 END 

60 INPUTtl 5,A,A$,B,C: PRINTA; 
A$;B;C 

e dategli il RUN. 

10. Il programma controllerà se il bloc- 
co 1 delle tracce 1 e 35 risulta leggibile. 
Appariranno due messaggi sotto l’ulti- 
mo comando RUN: se il drive ha un 
allineamento accettabile, entrambi i 
messaggi saranno 0 OK 00 00, e potre- 
te passare al punto 13. In caso contra- 
rio otterrete un messaggio d’errore, co- 
me 21 READ ERROR 01 01 oppure 27 
READ ERROR 35 01, o qualcosa di 
molto simile. Gli ultimi due numeri del 
messaggio d’errore si riferiscono alla 
traccia ed al blocco che è risultato illeg- 
gibile. 

11. Se avete ricevuto un messaggio d’er- 
rore al punto 10, dovete effettivamente 
riallineare la testina. Allentate le due 
viti del motore passo-passo e ruotatelo 
di pochissimo in senso orario. Riavvita- 
te a fondo le due viti e ridate il RUN al 
programma. Se ottenete ancora dei 
messaggi d’errore, dovete ripetere le 
operazioni di questo stesso punto, pro- 
vando a ruotare il motore un po’ di più 
o un po’ di meno in senso orario o antio- 
rario. Con il programmino siete in grado 
di trovare, con molteplici tentativi, la 
sua posizione giusta. 


12. Mentre allineate il drive sulle tracce 
1 e 35, non dovete però perdere l’alli- 
neamento sulla traccia 18. Per ottenere 
questo risultato lo schermo del vostro 
monitor dovebbe aver visualizzato in al- 
to a sinistra l’istruzione LOAD“$”,8, su- 
bito sotto il SEARCHING FOR $, sotto 
ancora LOADING e quindi READY. 
Sotto il READY ci sarà un’istruzione 
NEW, seguita dalle 7 linee del program- 
ma, in fondo alle quali ci sarà un RUN. 
Ogni volta che spostate la posizione del 
motore passo-passo dovrete premere 
CLR/HOME (senza SHIFT) seguito da 
due RETURN per caricare la directory 
ed assicurarvi quindi che la traccia 18 
sia allineata. 

Quindi premere ancora RETURN sul- 
l’istruzione NEW, per eliminare la direc- 
tory dalla memoria del computer, e pre- 
mere sette volte RETURN per reinseri- 
re in memoria le sette linee del pro- 
grammino. Premendo ancora una volta 
RETURN sull’istruzione RUN controlle- 
rete l’allineamento delle tracce 1 e 35. 
Con questo sistema dovreste riuscire fa- 
cilmente, con un po’ di tentativi sulla 
posizione del motore passo-passo, a ca- 
ricare correttamente la directory e leg- 
gere altrettanto correttamente le tracce 
1 e 35. 

13. Se la directory carica bene, ed otte- 
nete due messaggi 0 OK 00 00 dando 
il RUN al programma, ciò significa che 
il drive ha un buon, anche se probabil- 
mente non ottimo, allineamento. Occor- 
re una messa a punto finale su tutte le 
tracce, per assicurarsi un allineamento 
perfetto. 

14. Digitate quindi il programma listato 
in fondo a questo articolo, che controlla 
tutte le tracce del disco. Se ottenete 
ancora dei messaggi di errore su qual- 
che traccia, ruotate ancora il motore 
passo-passo di una quantità infinitesima 
in un senso o nell’altro, fino a che tutto 
sia OK. 


Riassemblaggio del drive 

1. Staccate l’alimentazione del drive e 
il cavo seriale di collegamento al com- 
puter. 

2. Assicuratevi che le due viti del moto- 
re passo-passo siano ben serrate. 

3. Inserite il drive nella metà inferiore 
del suo involucro plastico, ed avvitate 
le sei viti. 

4. Rimuovete, se presente, il coperchio 
interno di metallo e ricollegate i due 
cavetti della spia di alimentazione ver- 
de. Quindi riavvitate l’eventuale coper- 
chio. 

5. Riavvitate la metà superiore dell’in- 
volucro plastico, con le sue quattro viti. 

6. Ricollegate i cavi nella parte poste- 
riore del drive. 

Buon caricamento a tutti! 
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verifica 


1000 

PRINT" {CLR} VERIFICA TRACCE E SETTORI 


»« 

: rem 

143 

1010 

PRINT" { 2 GIU' } INSERISCI 

UN DISCO 

NU 


OVO NEL" : PR1NT"DRIVE E PREMI RETURN" 



: rem 

16 

1020 

GETAS : IFASOCHRS (1 3) THENl 020 




: rem 

88 

1030 

OPENI 5, 8, 1 5 

: rem 

82 

1040 

PRINT" {GIU' ) FORMATTAZIONE 



{ 2 GIU’ } " : PRINT#! 5, "NO : 

CONTROLLO 

. 9*Z 


" : GOSUB1 240 :CLOSEl 5 

s rem 

192 

1050 

1FEN>0THENEND 

: rem 

92 

1060 

OPENI 5, 8, 1 5:OPEN8, 8,8,"# 

" : rem 

84 

1070 

FORT= 1 T035 : FORS= 0TO2 0 

: rem 

98 

1080 

PRINT" { CLR } CONTROLLO TRACCI A"T; TAB ( 2 


2) " SETTORE "S 

: rem 

1 84 

1090 

PRINT#1S,"B-P:’’;8;I 

: rem 

40 

1100 

FORI = 1 T02 55 : PRINT# 8 ,CHR$ ( I ) ; :NEXT 




: rem 

60 

ino 

PR1 NT# 1 5,"U2:";o;0;T;S 

: rem 

5 

1120 

GOSUB1 240 

: rem 

1 1 

1130 

PRI NT#1 5,"B-P:”;8;1 

: rem 

35 

1140 

F0Rl = lTO2 55:PRINT#8, 

:NEXT 




s rem 

22 

1150 

PRI NT# 1 5 , "Ul 8;0;T;S 

s rem 

8 

1160 

GOSUBl 280 

: rem 

19 

1170 

PRINT#1 5,"B-P:";8;1 

2 rem 

39 

1180 

FL= 0 : GL= 0 : FORI = 1 T02 55 

2 rem 

26 

1190 

GET* 8 , A$ : I FA$ < >CHR$ ( 1 ) THENFL» 1 




2 rem 

9 

1 200 

NEXT: IFFL=1 THENGOSUBl 270 

2 rem 

68 

1210 

IF (T>I 7ANDS> 1 7) OR (T>24ANDS> 1 6) OR (T>3 


0ANDS> I 5) THENS=20 

2 rem 

241 

1220 

NEXT : NEXT: PRINT" { 3 GIU ' } { RVS } ATTENZ 


IONE : RI FORMATTARE" : PRINT" { RVS ) PRI MA 


DELL* USO l" 

2 rem 

142 

1230 

CLOSE8 rCLOSEl 5 :END 

2 rem 

155 

1240 

INPUT# 1 5 , EN , EM$ , ET , ES 

2 rem 

10 

1250 

IFEN*0THENRETURN 

2 rem 

102 

1260 

GL= 1 : PRI NT" {GIU’ } ERRORE 

SCRITTURA 

:"E 


N ; EMS ; ET ; ES : RETURN 

2 rem 

245 

1270 

PRI NT"BLOCCO DI FETTOSO: TRACCI A "T ; 

TAB 


(22) "SETORE"S" { GIU ’ ) " : RETURN 




2 rem 

34 

1 280 

INPUT# 15, EN , EMS , ET, ES 

2 rem 

14 

1290 

IFEN*0THENRETURN 

2 rem 

106 

1300 

IFGL'OTHENPRINT 

2 rem 

15 

1310 

PRI NT"ERRORE LETTURA : "EN 

;EM$ ;ET;ES :R 


ETURN 

2 rem 

5 
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La piccola guida 
del principiante 


Che cos’è un programma? 

II solo computer non può compiere alcuna operazione. 

Un computer possiede potenzialità, ma, come una macchina 
senza benzina, senza un programma non può funzionare. 
La maggior parte dei programmi pubblicati su SUPER- 
COMMODORE per i computer Commodore sono scritti in 
un linguaggio per calcolatori chiamato BASIC. Il BASIC è 
facile da imparare ed è disponibile, di serie, nel vostro com- 
puter 

Programmi BASIC 

Ogni mese SUPERCOMMODORE pubblica programmi 
espressamente realizzati per il vostro computer. Tanto per 
cominciare, solo i programmi scritti per la tua macchina, 
indicati con “versione per ...”. Più tardi, quando avrai acqui- 
sito esperienza con il BASIC del tuo computer, potrai cerca- 
re di copiare e convertire programmi scritti per altri calcola- 
tori. Diversamente dal linguaggio corrente, che può essere 
variamente interpretato, il BASIC di solito ha un solo modo 
corretto per indicare qualcosa. 

Ogni lettera, carattere o numero ha il suo significato. 

Un errore banale è costituito dalla sostituzione del numero 
u 0" con la lettera “O” oppure il carattere minuscolo “1” 
invece del numero “1” o ancora il carattere maiuscolo “B” 
con il numero “8”. 

Devi anche inserire tutta la punteggiatura, i due punti (:) e 
le virgole, copiando esattamente ciò che appare sulla rivista. 
Gli spazi possono essere importanti. Per essere sicuro copia 
il listato esattamente come si presenta. 

Le parentesi e i caratteri speciali 

L’eccezione per questa regola di copiatura si presenta quan- 
do incontrerai indicazioni tra parentesi, quali: “{GIU}". 
Ogni cosa compresa tra parentesi è un carattere speciale 
oppure un carattere che non può essere facilmente prodotto 
con la stampante. Incontrando un carattere di questo tipo 
fai riferimento alla “Piccola guida per l’input dei program- 
mi”. 

Le istruzioni DATA 

Alcuni programmi contengono una sezione, o delle sezioni, 
di istruzioni DATA. Queste linee di istruzione forniscono le 
informazioni di cui il programma ha bisogno. 

In alcuni casi le istruzioni DATA costituiscono il programma 
vero e proprio, in altri contengono codici grafici. Queste 


linee sono particolarmente soggette agli errori. Se un solo 
numero in una linea di istruzione DATA è sbagliato, il calco- 
latore potrebbe “piantarsi” o distruggere il programma. La 
tastiera e il tasto STOP appaiono inattivi e lo schermo com- 
pletamente vuoto. Non lasciarti prendere dal panico. Non 
si è verificato alcun danno. 

Per riprendere il controllo devi spegnere il computer e suc- 
cessivamente riaccenderlo. Ciò cancellerà qualsiasi pro- 
gramma presente in memoria, per cui è sempre necessario 
fare il SAVE del tuo programma prima di comandare il 
RUN. 

Se il computer si ferma, puoi caricare (LOAD) il programma 
e cercare l’errore. 

A volte, quando il programma viene “lanciato”, un’istruzione 
DATA errata può causare un messaggio di errore. 

Il messaggio di errore potrebbe riferirsi alla linea di program- 
ma che legge (READ) il contenuto delle istruzioni DATA. 

Come conoscere il computer 

Dovresti prendere confidenza con il computer prima di pro- 
cedere alla copiatura del programma. 

Impara le istruzioni che si usano per memorizzare e richia- 
mare i programmi da nastro o da disco. Dovrai conservare 
una copia del tuo programma, se non vorrai copiarlo ogni 
volta che lo devi usare. Impara ad usare le funzioni di “edi- 
ting” della tua macchina. Come puoi correggere un errore? 
Puoi sempre ricopiare la linea e in questo caso devi sapere 
come procedere. Sapresti come inserire i caratteri in “inver- 
se”, i caratteri minuscoli e quelli di controllo? 

Tutto ciò è spiegato nel manuale del calcolatore. 

Un veloce ripasso 

1) Copia il programma una linea alla volta, con ordine. 
Premi RETURN alla fine di ogni linea. Usa il tasto “DEL” 
per correggere gli errori. 

2) Confronta la linea copiata con quella presente nella rivi- 
sta. Puoi controllare l’intero programma nel caso in cui 
si presenti un errore quando esegui il RUN. 

3) Accertati di aver inserito le istruzioni tra parentesi graffe 
con gli appropriati caratteri di controllo (fai riferimento 
alla “Piccola guida per l’input dei programmi” che trovi 
in questa stessa rivista). 

Siamo spiacenti di non poter rispondere singolarmente alle 
richieste di informazioni circa i programmi, prodotti o servizi 
apparsi su SUPERCOMMODORE. 
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Piccola guida per 
l’input 

dei programmi 


M olti dei programmi listati da SUPERCOMMODO- 
RE contengono particolari caratteri di controllo 
(controllo cursore, tasti colore, video-inverse, ecc.). 
Per rendere chiaro ciò che dev’essere battuto quando 
è necessario inserire uno dei suddetti caratteri sono 
state stabilite le seguenti convenzioni. 

Generalmente i listati contengono delle «parole» racchiu- 
se tra parentesi graffe j }; tali parole rappresentano 
particolari caratteri di controllo: j GIU } significa premere 
il simbolo del cursore verso il basso. 1 5 SPAZI ) vuol dire 
battere 5 volte la barra-spazio. 

Per indicare che un tasto dev’essere «shiftato», cioè 
premuto insieme al tasto SH1FT, nel listato il simbolo 
di questo tasto sarà sottolineato. 

Per esempio S significa che dev’essere premuto il tasto 
S mentre è abbassato il tasto SHIFT. 

La manovra farà apparire sullo schermo un piccolo 
«cuore». 

Trovando un simbolo sottolineato chiuso tra parentesi 
graffe (esempio (10 Nj) dovrà essere interpretato co- 
me «premere il carattere indicato per il numero di volte 
che lo precede nelle parentesi»: nel nostro esempio 
premere 10 volte il tasto N «shiftato». 

Se il tasto da premere è indicato tra le parentesi [()], 
vuol dire che lo stesso dovrà essere premuto mentre 
è premuto il tasto «Commodore» (il tasto «Commodo- 
re» è quello posto nell’angolo in basso a sinistra). 

Se il tasto scritto tra [(}] è preceduto da un numero, 
ciò significa che il tasto dev’essere premuto per il nu- 
mero di volte indicato. 


Raramente si potrà trovare un carattere alfabetico soli- 
tario racchiuso tra parentesi graffe. Tale carattere può 
essere battuto mentre è premuto il tasto CTRL. 

Ad esempio (A) sta ad indicare la sequenza CTRL-A. 
A proposito del «modo virgolette» è nota la possibilità 
di muovere il cursore sullo schermo con i tasti CRSR. 
Ogni tanto i programmatori desiderano muovere il cur- 
sore durante l’esecuzione del programma. E per que- 
sto motivo che nei programmi si troveranno dei [ SIN (, 

| HOME) e (BLU). 

L’unico modo perché il calcolatore distingua il coman- 
do diretto da quello inserito nel programma è il «modo 
virgolette». Premendo il tasto «virgolette» (tasti SHIFT 
2) il calcolatore si predispone appunto in «modo virgo- 
lette». 

Battendo un carattere qualsiasi, cercando poi di cor- 
reggerlo muovendo il cursore, si otterrà solo un trat- 
to verticale in un quadratino inverso. Questo è infat- 
ti il simbolo del cursore a sinistra nel «modo virgolette». 
L’unico comando di editing non utilizzabile all’interno 
di un programma è il DEL. Battendo nuovamente le 
«virgolette» il calcolatore lascia il «modo virgolette». Si 
può accedere al «modo virgolette» quando inserite spa- 
zi nella linea. 

In ogni caso, il sistema più semplice per uscire dal 
«modo virgolette» è quello di premere il tasto RE- 
TURN. 

Utilizzare la tabella che segue quando è necessario 
inserire comandi relativi al cursore e ai tasti colore. 


Quando leggete: 

Premete: Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

Quando leggete: 

Premete: 

Vedrete: 

>'CLR} 


G 

{CYN } 

1^3 Q 

k. 

[<7>] 


□ 

{ HOME } 


0 

{PUR} 

m q 

i 

(<8>) 

□ □ 

■ ■ 
■ ■ 

:SU) 

rm il grilli 

□ 

{CRN} 

E3D 

□ 

{FI} 

rr 

5 

•GIU' } 


CO 

{BLU} 

EOO 

B 

{ F2 } 

m 

a 

{SIN} 

rm s» "B 

II 

{YEL} 

141.11 Q 

Si 

{F3} 


■ 

{DES} 


□ 

I < 1 > 1 . 

□ □ 

□ 

{ F4 } 

rzj 

15 

{ RVS } 

rei □ 

s 

A 

Cì 

V 

□ □ 

PS 

{ F5 } 

lisi 

II 

{OFF} 

EZS □ 

■ 

{< 3> ) 

□ □ 

►n 

{ F6 } 

rx-i 

SI 

{ BLK } 

f41.fl Q 

■ 

(<4>1 

□ o 

co 

{ F7 } 

i tà 

II 

: WHT } 

f~41.fl 0 

[1 

[<5>1 

□ □ 

E 

i F8 } 

G0 

■ 

{RED) 

1411!! Q 

E3 

t<6>] 

□ □ 

■1 
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di P. Fortini 

trad. ed adatt. 

di M. Cristuib Grizzi 



Dopo lo SCREEN 80 per C64, 
pubblicato sul numero di Dicem- 
bre 1984, ecco ora un program- 
ma per avere uno schermo a 40 
colonne sul VIC 20 con espan- 
sione di memoria da almeno 8 
Kbyte. 


I l formato dello schermo del VIC 20 
lascia molto a desiderare, se si vuole 
fare del calcolatore un uso appena ap- 
pena serio. 23 righe di 22 caratteri cia- 
scuna non permettono infatti di visualiz- 
zare un numero sufficiente di informa- 
zioni, ed i programmi BASIC sono poco 
leggibili sullo schermo, avendo le linee 
spezzate più volte per andare a capo. 
Inoltre, i programmi scritti per altri 
computer a 40 colonne richiedono spes- 
so un notevole lavoro di adattamento 
delle istruzioni PRINT per generare un 
output leggibile sul VIC 20. 

SCREEN 40 è stato scritto per risolvere 
alcuni di questi problemi, modificando 
il formato dello schermo del VIC 20 in 
un insieme di 24 righe di 40 caratteri 
ognuna. Una volta mandato in esecuzio- 
ne SCREEN 40 diventa parte del siste- 
ma operativo del computer, permetten- 
do un editing totale e compatibile con 
il BASIC. 

Dal momento che l’organizzazione dello 
schermo di SCREEN 40 differisce radi- 
calmente dalla normale organizzazione 
dello schermo del VIC 20, i programmi 
BASIC che usano istruzioni POKE per 
visualizzare caratteri o grafici sullo 
schermo non saranno compatibili con 
SCREEN 40. Inoltre, poiché quest’ulti- 
mo ridefinisce i vettori di sistema opera- 
tivo IRQ, BREAK, NMI, INPUT, OUT- 
PUT e GET, può entrare in conflitto con 
il software che manipola questi stessi 
vettori. 

SCREEN 40 occupa un totale di 7 Kby- 
te di RAM (locazioni da 4096 al 11263), 
e potrà quindi “girare” soltanto su un 
VIC 20 dotato di espansione di memo- 
ria da almeno 8 Kbyte. 

Lo schermo a 40 colonne è creato usan- 
do la memoria interna del VIC 20 per 



generare una mappa di bit del video: il 
programma in sé occupa 2 Kbyte di 
linguaggio macchina, più i dati per i set 
di caratteri maiuscolo e minuscolo dise- 
gnati in matrice 7x4 pixel. Un Kbyte 
aggiuntivo è necessario per la nuova 
memoria di schermo. Con un’espansio- 
ne da 8 Kbyte rimarranno quindi liberi 
circa 5 Kbyte per i programmi in BASIC 
che salgono a circa 13 Kbyte, se si utiliz- 
za un’espansione da 16 Kbyte. 

Note per il caricamento o la 
digitazione 

Se si dispone della cassetta allegata alla 


rivista, è sufficiente posizionarsi con il 
nastro in corrispondenza dell’inizio del 
programma e digitare: 

LOAD””,l,l 

(attenzione: non inserire spazi tra gli 
apici!). 

Il programma andrà quindi mandato in 
esecuzione, digitando: 

SYS 8192 

Ricordiamo che per conoscere il punto 
esatto di inizio dei vari programmi su 
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cassetta è sufficiente inserire questuiti* 
ma, completamente riavvolta, nel regi- 
stratore, azzerare il contanastro e digi- 
tare: 

LOAD”*” 

Dal momento che sicuramente non esi- 
ste sulla cassetta alcun programma di 
nome “*”, il computer passerà in rasse- 
gna tutti i programmi, visualizzandone 
il nome con il messaggio: 

FOUND XXXX 

Sarà quindi utile annotarsi su un foglio 
i nomi dei programmi e la relativa posi- 
zione del contanastro (sottrarre tre o 
quattro unità dal valore corrispon- 
dente all’apparizione del messaggio 
FOUND...). 

Gli abbonati alla sola rivista dovranno 
invece usare il programma MLX (vede- 
re nelle pagine verdi) per digitare il lista- 
to in linguaggio macchina. La procedu- 
ra da seguire, in questo caso, è: 

- Inserire un’espansione di memoria da 
almeno 8 Kbyte e digitare in modo di- 
retto: 

POKE43, 1 :POKE44,44: 1 1264,0:NEW 

- Caricare in memoria MLX (che sarà 
stato precedentemente digitato e salva- 
to) e rispondere alle sue richieste circa 
gli indirizzi iniziale e finale con: 

indirizzo iniziale: 8192 
indirizzo finale : 10240 

- Dopo avere digitato e salvato il pro- 
gramma tramite MLX si potranno segui- 
re per il caricamento le istruzioni date 
più sopra per i possessori di cassetta. 


Un editing migliorato 

In generale, usare il VIC 20 con 
SCREEN 40 è molto più facile e como- 
do che % usarlo con lo screen editor stan- 
dard. E possibile muovere il cursore su 
qualsiasi linea di schermo; come al solito 
usare il tasto INST/DEL per inserire od 
eliminare caratteri e premere RETURN 
per inserire in memoria le linee BASIC. 
In alcune caratteristiche, e particolar- 
mente nel modo in cui lo schermo effet- 
tua i suoi scroll, SCREEN 40 si compor- 
ta diversamente dal classico editor di 
schermo Commodore. Queste modifi- 
che si sono rese necessarie per mante- 
nere una ragionevole velocità di esecu- 
zione, insieme all’aggiunta di alcune mi- 
gliorie. 

Il cursore lampeggia come un blocco 
“solido” invece che come l’immagine in 
reverse del carattere sottostante; una li- 
nea BASIC può essere lunga al massi- 
mo 80 caratteri - come nel C64 - inve- 
ce dei consueti 88, ed il modo INSERT 
(in cui i codici di cursore digitati dopo 
aver premuto più volte il tasto INSERT 
generano dei caratteri in reverse) non 


è disponibile. Il modo virgolette invece 
non presenta alcuna differenza rispetto 
allo standard. 

I movimenti di cursore su e cursore giù 
in corrispondenza del bordo superiore 
o inferiore dello schermo provocano in 
SCREEN 40 il rientro del cursore dalla 
parte opposta dello schermo, nel caso 
si tratti di un movimento verso l’alto in 
corrispondenza del bordo superiore, op- 
pure forzano uno scroll nel caso oppo- 
sto. 

Per forzare uno scroll in SCREEN 40 
posizionatevi con il cursore sulla linea 
di schermo più bassa e premete RE- 
TURN o SHIFT e RETURN. Mentre 
scrolla, l’immagine dello schermo “sal- 
ta” verso l’alto di otto linee alla volta 
invece che di una soltanto: dal momen- 
to che questo tipo di scroll è relativa- 
mente poco frequente e molto veloce, 
usando SCREEN 40 le operazioni di 
PRINT e LIST hanno una velocità di 
esecuzione comparabile a quella stan- 
dard. 

Lo scroll verso il basso, che si verifica 
quando le linee di programma vengono 
allungate, si comporta invece normal- 
mente, anche se con una lentezza mag- 
giore. 

La pressione di CTRL durante la stam- 
pa o il LIST non provoca più il rallenta- 
mento dell’operazione: al contrario que- 
sta può essere interrotta con la pressio- 
ne di SHIFT oppure del tasto Commo- 
dore. L’operazione riprende quando si 
rilascia il tasto. Se si stampano caratteri 
grafici dal set standard, ne viene visua- 
lizzata soltanto la metà destra; 
SCREEN 40 disabilita inoltre la possibi- 
lità di passare da un set di caratteri 
all’altro con la pressione contempora- 
nea di SHIFT e Commodore: questa 
funzione viene invece eseguita dalla 
pressione contemporanea di CTRL e 
del tasto con la freccia a sinistra, o dal 
comando diretto PRINTCHR$ (6). I ca- 
ratteri già visualizzati sullo schermo non 
vengono modificati da questo comando, 
in modo che possono essere visualizzati 
contemporaneamente sia caratteri ma- 
iuscoli che minuscoli e grafici. Tuttavia 
il muoversi con il cursore sopra un ca- 
rattere, ripristinare l’immagine di scher- 
mo o effettuare uno scroll verso il basso 
sono tutte operazioni che modificano 
nel set corrente il carattere visualizzato 
e lo regolano in reverse, se il modo re- 
verse è attivo. 


Migliorie interessanti 

Con SCREEN 40 se si premono i tasti 
Commodore e SHIFT+CLR/HOME, 
oppure si esegue il comando 
PRINTCHR$(15), il contenuto del- 
lo schermo in alta risoluzione viene can- 
cellato senza che venga alterata la me- 
moria di schermo. Premendo RESTO- 
RE, od eseguendo una PRINTCHR$ 
(14), si recupererà l’originaria immagi- 
ne di schermo. 

Queste caratteristiche sono estrema- 
mente utili in programmi che effettuano 


delle POKE nello schermo in alta risolu- 
zione o nell’area di schermo di SCREEN 
40. 

Per esempio, un vostro programma po- 
trà stampare dei dati sullo schermo, pu- 
lirlo quindi con PRINTCHR$ (15) e plot- 
tare un grafico in alta risoluzione. Alla 
fine del plottaggio si potranno rivisualiz- 
zare i dati precedenti, semplicemente 
premendo il tasto RESTORE od ese- 
guendo un’istruzione PRINTCHRS 
(14). 

Un’altra possibilità è che il programma 
effettui delle POKE di certi codici scher- 
mo nella memoria video, rendendo 
quindi visibili i caratteri con una 
PRINTCHR$(14). 

L’intero schermo può essere fatto scrol- 
lare verso il basso di una linea, usando 
l’istruzione PRINTCHR$ (16). 

SCREEN 40 limita invece le funzioni co- 
lore: la pressione del tasto CTRL e di 
uno dei tasti colore provoca il passaggio 
nel colore selezionato di tutto ciò che è 
visualizzato sullo schermo. Differenti 
parti dello schermo possono essere co- 
lorate diversamente, inserendo i codici 
di colore, tramite istruzioni POKE, nelle 
locazioni da 37888 a 38127 (memoria 
colore). 


Note tecniche 

Il modo più ovvio per ottenere uno 
schermo a 40 colonne nel VIC 20 consi- 
ste nel raggruppare due caratteri nello 
spazio normalmente occupato da un so- 
lo carattere (8x8 pixel). Così, infatti, 
agisce SCREEN 40. Per poter ottenere 
questo effetto è necessario passare in 
modo a mappa di bit; SCREEN 40 ope- 
ra in questa maniera: i registri di con- 
trollo del chip video 6560 vengono re- 
golati su un formato di 12 righe e 20 
colonne, formate da caratteri in alta ri- 
soluzione di 16x8 pixel. La memoria di 
schermo e la memoria carattere vengo- 
no poste all’inizio della RAM del VIC 
20: i primi 240 byte di quest’area ven- 
gono quindi riempiti con numeri da 16 
a 255, che costituiscono il contenuto 
della memoria di schermo per il chip 
video. Ogni valore ha le funzioni di pun- 
tatore nell’area della memoria caratte- 
re, facendo in modo che il chip video 
visualizzi il contenuto di 16 byte come 
un blocco di 16x8 pixel sullo schermo. 
L’effetto di questa operazione è la vi- 
sualizzazione degli ultimi 3.75 Kbyte 
della memoria del VIC 20. Il BASIC ed 
il sistema operativo usano anch’essi la 
memoria video per contenere linee di 
programma da “editare” e da inserire 
nel buffer di input del BASIC. Nelle 
operazioni normali quest’area coincide 
con la memoria di schermo, mentre 
SCREEN 40 riserva un’area separata 
di 1 Kbyte per l’esecuzione di queste 
funzioni. Lo schermo di sistema operati- 
vo risulta così facilmente rilocabile, in- 
serendo il valore appropriato tramite 
una POKE nella locazione 648. 

Le varie subroutine in codice macchina 
all’interno di SCREEN 40 si occupano 
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Locazione 

Set 

Caratteri 

Codici schermo 

820 

maiuscolo 

lettere maiuscole 

0-31 

821 


simboli numerici 

32-63 

822 


grafici con shift 

64-95 

823 


grafici con Commodore 

96-127 

824 

minuscolo 

lettere minuscole 

0-31 

825 


simboli numerici 

32-63 

826 


lettere maiuscole 

64-95 

827 


grafici con Commodore 

96-127 


della gestione del cursore e delle aree 
di schermo di sistema operativo ed a 
mappa di bit: per stampare un caratte- 
re SCREEN 40 inserisce il codice di 
schermo del carattere nella memoria di 
schermo di sistema operativo, e quindi 
ne trasferisce la corrispondente immagi- 
ne di 7x4 pixel dalla memoria carattere 
nello schermo a mappa di bit. 

SCREEN 40 usa solo blocchi di memo- 
ria a 4 bit per visualizzare ogni caratte- 
re, e li conserva nella parte non utilizza- 
ta della RAM colore. Quando il pro- 
gramma viene inizializzato le forme dei 
caratteri alfanumerici vengono ivi tra- 
sferite dai dati contenuti negli ultimi 
384 byte del programma stesso, men- 
tre i caratteri grafici vengono ottenuti 
direttamente dalla ROM del VIC 20 (è 
per questo motivo che ne viene visualiz- 
zata solo la metà destra). 

Grafici facili 

SCREEN 40 permette di sostituire facil- 
mente con caratteri personalizzati sia 
parte che tutto il set di caratteri in for- 
mato 40 colonne. Il metodo è soltanto 
leggermente diverso da quello usato nei 
caratteri programmabili standard del 
VIC 20. 

Nell’area usata da SCREEN 40 come 
memoria carattere ogni blocco di me- 
moria da 256 byte contiene l’immagine 
di 32 caratteri, ordinati in base al loro 
codice di schermo. Quando lo schermo 
viene inizializzato i puntatori a questi 
blocchi di memoria (pagine) vengono in- 
seriti negli otto byte immediatamente 
successivi alla tavola dei vettori del si- 
stema operativo (spazio generalmente 


non usato all’interno della RAM del VIC 
20). Questi puntatori possono essere 
modificati in qualsiasi momento con 
istruzioni POKE. La pressione di RUN/ 
STOP+RESTORE ripristinerà il loro 
valore a quello standard usato da 
SCREEN 40. 

Supponiamo, ad esempio, che si voglia- 
no ridefinire i caratteri grafici ottenibili 
con la pressione del tasto Commodore. 
Si definisce la forma di ciascun caratte- 
re usando otto valori, come di consueto 
per i caratteri programmabili. Questi 
valori devono essere compresi nell’in- 
tervallo 0-15, dal momento che l’imma- 
gine del carattere è larga solo 4 bit. I 
dati devono essere inseriti in un’area di 
memoria di 256 byte, che inizi in corri- 
spondenza a una nuova pagina (ricor- 
diamo che la memoria del computer è 
divisa in pagine da 256 byte: gli indirizzi 
0-255 sono la pagina 1, gli indirizzi 256- 
511 sono la pagina 2, e così via...). Oc- 
correrà infine inserire il numero di pagi- 


na scelto nelle locazioni 823 e 824, nel 
consueto formato byte basso/byte alto. 
Con lo schermo già in alta risoluzione 
l’accesso diretto alla visualizzazione del- 
la memoria fornisce un metodo alterna- 
tivo per realizzare grafici, in quanto lo 
schermo è largo 160 pixel ed alto 192. 
Il programmino che segue consente ad 
esempio di plottare un pixel alle coordi- 
nate X ed Y (origine delle coordinate in 
posizione di HOME): 


50 FORI = 1 TOl 00 : Y = 20 : GOSUBl 00 : 
NEXT: END 

100 REM PLOTTA IN X,Y 
110 X=INT(X) :Y=INT(Y) 

120 IFX<OORX>1 590RY<OORY>1 91 T 
HENRETURN 

130 BYTE= 4 352+1 9* (YAND240) + 2* 
( XAND24 8 ) +Y 

140 POKEBYTE,PEEK(BYTE)OR2~ (7 
- (XAND7) ) 

150 RETURN 


Screen 40 per VIC 20 


81 92 : 1 20,076,069,032,065,048,1 54 
8198 :195,194,205,000,002,004,094 
8 204 : 01 6,01 8,02 2,2 55,1 55,1 29,095 
821 0 : 1 00, 1 73,1 90,1 64,255,1 62,038 
8216 :000,160,044,024,032,1 56,1 84 
8222 2255,169,040,141 ,136,002,005 
8228 2120,032,138,255,160,005,234 
8234 2 1 90,009,032,1 85,01 6,032,250 
8240 2 1 57,020, 003,1 69,032,1 57,074 
8246 2021 ,003,136,016,239,032,245 
8252 2249,253,088,076,030,033,021 
8258 2032,141 ,253,032,023,032,067 
8264 2032,091 ,228,032,164,227,078 
8270 2165,043,1 64,044,032,008,022 
8276 2 1 96,1 69,216,1 60,032,032,1 21 
8282 2 030,20 3,1 69,055,032,01 3,080 
8 288 2 228,0 76,1 29,2 27,0 72,1 38,1 9 8 
8294 2 072,1 52,072,1 73,029,1 45,2 33 
8300 2016,037,045,030, 1 45,1 70,039 
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8 306 : 04 1,002, 208,003, 076, 222,1 54 
831 2 :254, 044, 017, 145, 032, 234, 078 
831 8 :255, 032, 225, 255, 208, 006, 083 
8 324 : 032,036,032,1 08,002,1 92,02 2 
8 330 : 1 69,01 4, 1 41 ,1 1 9,002,1 69,240 
8336 : 001 ,1 33,1 98,104,168,1 04,084 
8342 : 1 70, 1 04,064,234,234,032,220 
8348 : 234,2 55,032,000,033,076,01 8 
8354 : 239, 234, 1 6 5,1 53,201 ,00 3,1 33 
8 360 -. 24 0,01 4,076,24 5,241 , 1 65,1 25 
8 366 : 1 53,208,003,076,1 66,036,0 48 
8372 : 201 ,003,208,003,076,1 58,061 
8 378 : 036,076,0 42,242,072,165,0 51 
838 4 : 1 54,201 ,003,208,01 3,1 73,1 76 
8 390 : 1 4 1 , 00 2, 240, 004, 201, 003, 021 
8 396 : 1 44,247,1 04,076,21 5,035,001 
8402 : 076,1 33,255,2 34,2 34, 234,096 
840 8 : 083,067,082,069,069,078,1 52 
8 41 4 : 045, 0 52, 048, 032, 032, 032, 20 7 
8420 : 032,032,032,032,032,032,1 64 
8426 : 032,032,032,032,032,032,1 70 
8432 : 032,032,032,032,032,032,1 76 



8438 

8444 

8450 

8456 

8462 

8468 

8474 

8480 

8486 

8492 

8498 

8504 

8510 

8516 

8522 

8528 

8534 

8540 

8546 

8552 

8558 

8564 

8570 

8576 

8582 

8588 

8594 

8600 

8606 

861 2 

861 8 

8624 

8630 

8636 

8642 

8648 

8654 

8660 

8666 

8672 

8678 

8684 

8690 

8696 

8702 

8708 

871 4 

8720 

8726 

8732 

8738 

8744 

8750 

8756 

8762 

8768 


1032 , 032 , 032 , 032 , 032 , 032 , 1 82 
: 032, 0 32, 01 3 , 000, 1 6 5 , 204,1 86 
: 208 , 025, 1 9 8 , 205 , 208, 021 ,099 
: 1 64 , 211 , 177 , 209 , 078 , 134, 213 
: 002, 1 76 , 005 , 2 38,1 34 , 002,0 59 
: 169 , 1 60 , 032 , 093 , 035,1 69,1 66 
: 032, 1 33 , 20 5 , 096, 1 62 , 007, 1 49 
: 134 , 205, 1 89 , 208 , 037, 1 57, 1 94 
: 052 , 003,1 89 , 216 , 037,1 57,1 80 
: 137 , 002 , 202, 01 6, 241 ,1 38,01 2 
: 157 , 240 , 01 5 , 202 , 224, 01 5, 1 35 
: 208 , 247,1 89,1 92 , 037,1 57,062 
: 000, 1 44 , 202,01 6 , 247, 1 42,045 
: 1 45 , 002,1 62 , 003 , 1 34 , 1 54,1 56 
: 160 , 000, 1 32,1 53, 1 40, 1 34,025 
: 00 2,1 40, 1 35 , 002 , 032 , 096,2 31 
: 037,1 7 3,1 36 , 002 , 009,1 28,0 59 
: 168 , 169 , 000, 1 70, 1 48 , 2 17,1 96 
: 024, 1 05 , 040 , 144, 001 , 200,100 
: 232 , 224 , 024 , 208,24 3,1 69,1 80 
: 255,1 49,21 7 , 202 , 032 , 050,247 
: 03 5 , 202 , 01 6 , 250 , 169 , 000,020 
: 1 33 , 211 , 1 33 , 214 , 165 , 211, 165 
: 056 , 233 , 040, 1 44 , 002 , 1 33 , 224 
: 211 , 166 , 214 , 165 , 211 , 180,001 
: 21 7 , 048 , 006 , 024, 1 05 , 040,068 
: 1 33,21 1 , 202,1 69 , 039,1 80, 056 
: 21 8 , 048 , 002,1 69 , 079,1 33,0 33 
: 21 3,1 81 , 217 , 041 , 003 , 013,058 
: 1 36 , 002 , 133 , 210,1 89 , 016,082 
: 038,1 33 , 209,1 89,24 8 , 037,000 
: 1 33 , 244, 1 89,2 24 , 037,1 33,1 1 2 
: 243 , 096,1 62,02 3,1 98,21 4,094 
: 01 6, 1 92, 1 34 , 2 14 , 048,1 88,21 2 
: 230,21 4, 1 62 , 023 , 228,21 4,241 
: 1 76, 1 80,1 69 , 000 , 240, 1 74, 1 1 5 
: 164, 21 1 , 230,21 1 ,1 92 , 039,2 29 
: 1 44 , 225 , 208 , 002 , 230,21 4,21 1 
: 1 96,21 3, 1 44,21 7,1 98,21 4,1 20 
: 1 60 , 000, 1 32,21 1 , 132 , 212,047 
: 070, 201 , 1 66,21 4 , 232 , 224, 057 
: 024 , 208 , 003 , 032,1 89 , 034,21 4 
: 1 81 ,21 7,01 6 , 244,1 34,21 4,224 
: 048,1 32,1 69 , 000, 1 33,1 99,1 61 
: 240 , 224, 1 64, 21 1 , 240,01 0,063 
: 1 36,1 92 , 039 , 208 , 002,1 98,01 1 
: 21 4,1 32,21 1 , 096,1 66,21 4,01 9 
: 240 , 009, 1 98 , 2 14 , 032 , 135, 0 76 
: 033 , 164 , 213 , 132 , 211 , 096,103 
: 032 , 000 , 034, 1 64, 21 1 , 1 96,1 53 
: 21 3,1 76 , 043 , 200, 1 77 , 209,028 
: 1 36,0 32,091 , 035 , 200 , 208,230 
: 242, 1 64, 2 1 3 , 1 77 , 209, 201 ,228 
: 032 , 208 , 004,1 96 , 2 1 1 , 208 , 1 43 
: 007,1 92 , 079,24 0 , 220 , 032,060 
: 085 , 034, 1 64,21 3,1 36,1 77,1 05 


8 774 : 209,2 00 , 032,091 , 035,1 36,005 
8780 : 1 96,21 1 , 208 , 244,1 69 , 032,1 1 2 
8786 : 076 , 091 , 03 5 , 166 , 214 , 232, 128 
8 792 : 1 34 , 242 , 224 , 024,1 44 , 007,095 
8798 : 03 2,1 89 , 034,1 98,21 4 , 208,201 
8804 : 00 5, 1 73, 1 46 , 002 , 208, 01 7, 1 39 
881 0 : 022,21 7 , 086,21 7,02 2,21 8,1 20 

881 6 : 056,1 1 8,21 8,1 69 , 079,1 33,1 1 7 
8 82 2 : 21 3 , 202 , 076,1 59,0 33,1 65,1 98 

882 8 :1 72 , 072 , 165 , 1 73 , 072 , 162, 172 
8834 : 024 , 202 , 03 2,1 59 , 033 , 228,040 
8840 : 242, 1 44, 01 4 , 240, 01 2,1 89,209 
8846 : 015 , 038, 1 33 , 172, 181 , 216, 1 29 
8852 : 032 , 027 , 035 , 048,2 34 , 032,044 
8858 : 050 , 03 5, 1 62 , 022 , 228 , 242, 1 25 
8864 : 144 , 015 , 1 81 , 218 , 041 , 127, 118 
8870 : 1 80, 21 7 , 01 6 , 002 , 009,1 28,206 
8876 : 149,21 8,2 02 , 208,2 37,1 66,072 
8 882 : 242,0 32,1 06,0 34, 1 04, 1 33,061 
8 888 : 1 73,1 04, 1 33,1 72 , 096,1 65,003 

8 89 4 : 1 72 , 072,1 6 5 , 1 73 , 072,1 62,238 
8900 : 01 7, 1 34 , 244, 1 6 2 , 022, 1 34, 1 41 
8906 : 1 73 , 160 , 000, 1 32,24 3,1 32,01 8 
891 2 : 1 72,1 77,1 72,1 4 5 , 243 , 200,037 
891 8 : 208 , 249 , 230 , 244 , 232 , 224,065 
89 24 : 032 , 208 , 234, 1 6 2 , 255 , 232,063 
893 0 : 224,01 6 , 240 , 028 , 032,1 59,1 57 

893 6 : 033,02 2,21 7 , 024,1 80 , 225,1 65 

894 2 : 01 6,001 , 056,1 1 8,21 7,1 89,067 
894 8 : 024 , 038,1 33,1 72,1 52 , 009,0 04 
8954 : 1 28,1 49 , 225,0 32 , 027 , 035,078 
8960 : 048 , 223 , 032 , 050 , 035,2 32, 1 08 
8966 : 224 , 024 , 208 , 248 , 165,201 ,052 
8972 : 233 , 008,1 33,201 , 006 , 217,042 
897 8 : 056,1 02,21 7,1 62,01 6,1 34, 1 93 
8984 : 21 4, 1 44, 1 55, 041 ,00 3,01 3,082 
899 0 : 1 36 , 002, 1 33, 1 73 , 160 , 039, 1 61 
8996 : 1 77, 1 72, 1 4 5 , 209, 1 44 , 004,1 1 9 
9002 : 032 , 093 , 03 5 , 056,1 36,01 6,1 54 

9 00 8 : 24 3 , 096 , 032,1 59,0 33,1 60,003 

901 4 : 039, 1 69 , 032, 1 45 , 209, 1 36, 01 6 
9020 : 0 1 6 , 251 , 1 69 , 020 , 133 , 216, 097 

902 6 : 1 69 , 000,1 60 , 007,1 45 , 243,022 
9032 : 1 3 6 , 016 , 251 , 169 , 016, 0 24, 1 72 
9038 : 1 01 ,24 3,1 33,24 3,1 44 , 002,1 76 
9044 : 230 , 244,1 98 , 21 6 , 208 , 232 , 1 32 
9050 : 096,1 4 5 , 209,1 33 , 206,1 38,249 
9056 : 072, 1 52 , 072, 1 65 , 209, 1 62, 160 
906 2 : 255 , 232,221 , 01 6 , 0 38 , 208 , 048 
906 8 : 250, 1 52,2 33 , 040 , 048 , 002,065 
9074 : 232,1 68,0 32,1 73 , 033,1 52,1 36 
9080 : 041 ,06 2 , 024,04 2,04 2 , 042,1 1 7 
908 6 : 1 44 , 003 , 230 , 244 , 024 , 101, 1 04 
9 092 : 24 3, 1 44 , 002 , 2 30 , 244, 1 33, 1 04 
9098 : 243, 1 52, 041 ,001 ,1 68,1 85,1 60 
9104 : 200, 0 37,1 33 , 216,1 69 , 000,131 
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9110 1006 , 206 , 038 , 1 99 , 006 , 206 , 
9116 : 042 , 006 , 206 , 042 , 013 , 135 , 
91 22 : 002,1 70, 1 89 , 052 , 003,1 33 , 
9128 : 207 , 036,21 6,1 60 , 007,1 77 , 
9134 : 243 , 005 , 216 , 133 , 241 , 177 , 
9140 : 206,041 ,01 5 , 080 , 004 , 01 0 , 
9146 : 01 0, 01 0 , 01 0 , 069,241 , 1 66 , 
91 52 : 1 99 , 208 , 002 , 069,21 6,1 45 , 
91 58 : 243, 1 36, 01 6 , 227, 1 32, 241 , 
9164 : 070 , 199 , 104 , 168 , 104 , 170 , 
91 70 : 169 , 002,1 33 , 205 , 096,1 33 , 
91 76 : 21 5,1 38 , 072,1 52 , 072 , 169 , 

9182 : 000 , 1 33 , 208 , 1 65 , 21 5 , 048 , 
91 88 : 0 1 9 , 201 , 032,1 44 , 063 , 032 , 
9194 : 1 1 2 , 036, 201 , 096,1 44 , 004 , 
9200 : 041 , 223,01 6,01 8 , 041 , 063 , 
9206 : 01 6, 01 4, 201 , 255 , 208 , 002 , 
921 2 : 1 69 , 254, 201 ,1 60,1 44 , 038 , 
921 8 : 04 1 , 1 27 , 009 , 064,1 66,1 99 , 
9224 : 240 , 002 , 009 , 128, 1 64, 21 1 , 
9230 : 032, 091 , 035 , 1 96,21 3 , 208 , 
9236 : 007 , 192 , 079 , 240 , 003 , 032 , 
9242 : 085 , 034 , 032 , 206 , 033 , 104 , 
9248 :1 68, 1 04, 1 70, 1 65, 21 5 , 024 , 
9254 : 088 , 096 , 162 , 024 , 221 , 056 , 
9260 : 038 , 240 , 025 , 202, 01 6 , 248 , 
9266 : 1 62 , 007,221 , 040 , 038 , 240 , 
9272 : 005 , 202, 01 6 , 248 , 048 , 225 , 
9278 : 1 65,21 2 , 208,01 4, 1 38 , 032 , 
9284 : 103 , 036 , 240,21 5 , 224 , 004 , 
9290 : 1 44,01 2,1 65,21 2 , 240 , 008 , 
9296 : 1 65,21 5,01 6,1 82 , 009 , 064 , 
9302 : 208,1 74 , 032 , 094 , 036 , 076 , 
9308 : 031 , 036 , 1 89 , 104 , 038 , 072 , 
931 4 : 1 89 , 080 , 038 , 072 , 096, 1 62 , 
9320 : 000 , 157 , 000 , 148 , 232 , 208 , 
9326 : 250 , 096 , 201 , 034 , 208 , 006 , 
9332 : 069,21 2,1 33,21 2,1 69 , 034 , 
9338 : 096 , 169 , 000 , 133 , 199 , 096 , 
9344 : 1 73,1 35 , 002 , 073 , 004 , 044 , 
9350 : 1 69 , 000 , 044, 1 69 , 004, 1 41 , 
9356 : 1 3 5 , 002 , 096, 1 62 , 000, 1 34 , 
9362 : 242 , 032 , 123 , 034 , 006 , 217 , 
9368 : 056, 1 02,21 7 , 076,1 20 , 033 , 
9374 : 1 33 , 208,1 65,21 3,1 33 , 200 , 
9380 : 208 , 008,1 65,21 4, 1 33,201 , 
9386 : 1 65 , 21 1 ,1 33 , 202,1 38 , 072 , 
9392 : 1 52 , 072,1 65 , 208 , 208,1 00 , 
9398 : 165 , 198 , 133 , 204 , 141 , 146 , 
9404 : 002 , 240 , 247, 1 20 , 234 , 078 , 
941 0 : 1 34 , 002, 1 64, 21 1, 1 77 , 209 , 
941 6 : 032 , 093 , 035 , 032 , 228 , 255 , 
9422 : 201 ,1 31 , 208 , 016,1 20 , 162 , 
9428 : 009 , 1 34,1 98,1 89 , 047 , 038 , 
9434 : 1 57,1 1 8 , 002 , 202 , 208 , 247 , 
9440 : 240 , 212 , 201 , 013 , 240 , 005 , 
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9446 : 032 , 21 5 , 035 , 144 , 203 , 164, 2 55 
9452 : 21 3,1 32 , 208,1 77 , 209,201 ,096 
9458 : 032 , 208 , 003 , 136 , 208 , 247,0 52 
9464 : 200, 1 32 , 200 , 160 , 000 , 132,048 
9470 : 2 1 1 , 132 , 212 , 140 , 146 , 002, 073 

947 6 : 1 66, 2 1 4, 1 81 ,21 7 , 048,001 ,063 
9482 : 202,0 32,1 59 , 033 , 228,201 ,097 

948 8 : 208 , 008 , 165 , 202, 1 33, 21 1 ,175 
9494 : 197 , 200, 1 76 , 035, 1 64, 21 1 ,237 
9500 : 1 77 , 209,1 33,21 5,041 , 063,098 
9506 : 006, 21 5 , 036,21 5,01 6 , 002 , 01 2 

951 2 : 009,1 28,1 44 , 004,1 66 , 212,1 91 
9 51 8 : 208 , 004,1 1 2 , 002 , 009 , 064,1 89 
9524 : 230, 21 1 , 032,1 12 , 036 , 196,101 
9530 : 200 , 208,01 9 , 169 , 000 , 133,01 9 
9536 : 208,1 62 , 003 , 228,1 53 , 240,034 
9542 : 004 , 228,1 54,24 0 , 003 , 032,219 
954 8 : 250 , 033 , 169,01 3,1 33,21 5,1 21 
9 554 : 104,1 68 , 104,1 70, 1 65,21 5,240 
9560 : 201 , 222 , 208 , 002 , 169 , 255,1 21 
9 566 : 024 , 096,1 85,1 28 , 038,1 53,206 
9572 : 000 , 1 50 , 074 , 074 , 074 , 074,034 
9 578 : 1 53,1 28,1 50, 1 69 , 006 , 1 53 , 097 

958 4 : 000 , 148, 1 85 , 000 , 039, 1 53, 1 25 

959 0 : 000, 1 49 , 074 , 074 , 074 , 074,051 
9596 -. 1 53 , 000,1 51 , 192,21 6,1 44,21 2 
9602 : 003,1 53 , 000,1 49 , 200 , 048,1 71 

960 8 : 228 , 208, 2 1 3 , 096, 1 74, 1 41 ,1 72 

961 4 : 002 , 224 , 002,24 0 , 003 , 076,1 77 
9620 : 08 7 , 033 , 1 62 , 023 , 032,1 73,1 46 
9626 : 033 , 032,06 2 , 035 , 202,01 6,022 
9632 : 24 7 , 096,1 33 , 206,1 38 , 072,028 
9638 : 1 52 , 072 , 076 , 1 16 , 035 , 162,01 1 
9644 : 023 , 032,1 59 , 033 , 160 , 039,1 06 
9650 : 1 77 , 209 , 032 , 162 , 037,1 36,1 63 
9656 : 01 6 , 248 , 202 , 01 6 , 240 , 076, 21 4 
9662 : 126 , 033 , 007,021 , 020 , 025,166 
9668 : 000 , 204 , 000 , 000 , 240,01 5,1 43 
9674 : 000 , 000 , 000 , 000 , 000 , 027,229 
968 0 : 1 49, 1 50, 1 30, 131 ,1 51 ,1 50,045 
9686 : 039, 1 31 ,01 0 , 000 , 004,01 0,1 52 
9692 : 004 , 004 , 220 , 235 , 000 , 008,1 79 
9698 : 064 , 072,1 28,1 36,1 92,2 00,2 50 
9704 : 000 , 008 , 064 , 07 2,1 28,1 36,1 28 
971 0 : 192 , 200 , 000,00 8 , 064 , 072,006 
971 6 : 128 , 136 , 192 , 200,01 7 , 017,166 
9722 : 01 8,01 8 , 01 9,01 9 , 020 , 020, 1 08 
9728 : 022 , 022 , 023 , 023 , 024, 0 24, 1 38 
9734 : 025 , 025 , 027 , 027 , 028 , 028,1 66 
9740 : 02 9 , 029 , 030 , 030 , 000 , 040 , 1 70 
9746 : 080,1 20,1 60 , 200,2 40 , 024,074 
9 752 : 064,1 04 , 144 , 184 , 224 , 008,240 
9758 : 048,0 88,1 2 8,1 68 , 208 , 248,1 50 
9764 : 032 , 072,1 1 2,1 52,1 44 , 005,041 
9770 : 028, 1 59, 1 56, 0 30, 031 ,1 58,092 
9776 : 076 , 079 , 065,0 68 , 013 , 082,1 75 


043 

088 

1 99 

203 

165 

024 

1 80 

007 

169 

251 

1 80 

010 

223 

207 

059 

130 

174 

194 

096 

250 

021 

061 

008 

110 

1 73 

045 

246 

032 

063 

1 22 

087 

219 

1 94 

050 

223 

081 

1 37 

1 77 

047 

047 

149 

1 57 

032 

244 

1 86 

069 

067 

057 

1 45 

085 

067 

1 07 

020 

059 

1 28 

1 1 1 


9782 

9788 

9794 

9800 

9806 

981 2 

981 8 

9824 

9830 

9836 

9842 

9848 

9854 

9860 

9866 

9872 

9878 

9884 

9890 

9896 

9902 

9908 

9914 

9920 

9926 

9932 

9938 

9944 

9950 

9956 

9962 

9968 

9974 

9980 

9986 

9992 

9998 

1 0004 

10010 

10016 

1 0022 

10028 

1 0034 

10040 

10046 

1 0052 

1 0058 

1 0064 

10070 

1 0076 

10082 

1 0088 

10094 

10100 

1 01 06 

10112 


1 01 1 8 

: 1 36 

,128 

,004 

,010 

,106 

,170 

, 1 76 

101 24 

: 1 70 

, 1 08 

,038 

,032 

,01 2 

,01 0 

,254 

1 01 30 

: 1 06 

, 1 40 

, 1 38 

,138 

,138 

,000 

,038 

101 36 

: 004 

, 01 0 

, 1 04 

, 1 32 

,066 

,042 

,254 

101 42 

: 196 

,000 

, 01 4 

, 068 

,228 

,068 

,220 

101 48 

: 068 

,068 

,036 

,000 

, 01 0 

,010 

,100 

1 01 54 

: 1 70 

, 1 70 

, 1 70 

, 1 70 

,068 

,000 

,150 

10160 

: 01 0 

, 01 0 

, 1 70 

, 1 70 

,170 

,068 

,006 

10166 

: 068 

,000 

,010 

, 01 0 

,170 

, 1 70 

,098 

101 72 

: 238 

,238 

, 1 70 

,000 

, 01 0 

,01 0 

,086 

101 78 

: 1 70 

, 1 64 

,074 

, 1 70 

, 1 70 

,000 

,174 

101 84 

: 01 0 

, 01 0 

, 1 70 

,174 

,164 

,100 

,060 

101 90 

: 036 

,192 

,01 4 

, 002 

,228 

,036 

,202 

101 96 

: 068 

,136 

,238 

,000 

,106 

,074 

,066 

10202 

: 069 

,069 

,074 

, 074 

,101 

,005 

,098 

1 0208 

: 072 

,164 

,136 

,068 

,136 

,196 

,228 

1 021 4 

: 168 

,004 

, 1 08 

,044 

,035 

,035 

,112 

1 0220 

: 044 

,044 

, 099 

,003 

,064 

,160 

, 1 38 

10226 

: 001 

,01 4 

, 004 

, 004 

,004 

,000 

,01 3 

10232 

: 01 5 

,039 

,071 

,243 

,067 

,033 

,204 

1 0238 

: 001 

,000 

, 1 08 

,255 

,255 

,255 

,104 


: 085,078,01 3,1 41 ,020,148,027 
: 01 9, 1 47, 01 7, 1 45, 029, 1 57, 062 
: 01 8 , 146, 014,1 42 , 006 , 01 6 , 1 52 
: 01 5, 01 4, 255, 255, 255, 255, 097 
: 255,2 55,249,223,027,046,1 09 
: 1 1 9,1 39,193,1 8 3,205,2 55,1 54 
: 1 24, 1 2 2,1 36,1 33,1 27,1 42,1 06 
: 1 49,1 70,255,2 55,2 55,255,1 55 
: 255,2 55,033,033,034,034,234 
: 033,037,033,033,033,033,054 
: 036,036,036,0 36,036,036,074 
: 037, 037, 2 55, 2 55, 2 55, 2 55,1 90 
: 255,255,064,1 60,224,1 60,220 
: 1 60, 1 60, 064, 000, 068,1 96,01 2 
: 068,068,068,064, 068,000, 21 8 
: 074,1 70,032,064, 1 2 8,1 28,228 
: 224,000,064,1 70,046,074,21 6 
: 04 6, 1 70, 064, 000, 03 6, 1 66, 1 26 
: 1 68, 2 38, 034, 044, 036, 000, 1 70 
: 224, 1 38,1 94,036,036,1 68,1 96 
: 074, 000, 068,1 38,1 36,196,01 8 
: 1 68,170,068,000,228,036,082 
: 032,064, 064, 064, 064, 000,21 8 
:066, 164, 164, 06 8, 1 64, 164, 214 
: 066, 000, 068,1 62,1 62,098,242 
: 034, 1 62, 068, 000, 000, 01 0,222 
: 068, 078, 00 4, 074, 064, 000, 242 
: 000,000,068,078,004,064,1 74 
: 192, 000, 000, 032, 064, 1 28,1 26 
: 064,036,012,000,000,000,08 4 
: 224, 01 4, 224, 000, 000, 000, 1 84 
: 000, 1 28,064,0 32,064, 1 32,1 48 
: 004,000,064,16 2,034,068,066 
: 068, 008, 072, 00 0,204, 1 70,006 
: 170,238,238,1 36,238,000,2 54 
: 004, 010, 074, 046, 106, 1 70, 162 
: 1 06,000,1 40, 1 38,202,1 72,00 4 
: 170,1 70,2 04,000,004,010,066 
: 072, 1 68,1 36,1 70,068,000,1 28 
: 04 4, 042, 1 06,1 70, 1 70, 1 70,222 
: 108,000,01 4,008,072,1 72,1 56 
: 232,1 36,078,000,078,1 68,224 
: 1 36,204,1 36 , 1 36 , 1 36 , 000 , 0 30 
: 004, 01 0,072,1 68, 1 74, 1 06,078 
: 036,1 92,1 38,1 38,202,1 74, 1 74 
: 1 70, 1 70, 1 70, 000,078,004, 1 48 
: 1 96,068,068,068,238,000, 200 
: 034,002,098,0 34,034,042,068 
: 1 64,064,1 38,1 38,1 70,1 72,1 64 
: 202, 1 70,1 70,000,200,072,1 38 
: 072, 072, 072, 072, 2 38, 000, 1 1 2 
: 01 0,01 4,1 74,238,2 34,234,240 
: 170,000, 01 2,01 0, 20 2,1 70, 1 62 
: 1 70, 1 70,1 70,000,004,01 0,1 28 
: 074, 1 70, 1 70, 1 70,068,000,006 
: 01 2,01 0,202,1 72,1 68,200, 124 


ERRATA CORRIGE 

Alcuni lettori ci hanno segnalato due tipi di 
problemi nell'utilizzo di “Relfiling System 
1.0": il primo riguarda l'apparizione di un 
messaggio d'errore “File notopen" quando 
si cerca di usare l'opzione 4 per l'inserimen- 
to dei dati. 

Ciò non è dovuto ad un errore nel program- 
ma. ma ad una errata spiegazione - nell'ar- 
ticolo - della procedura da seguire. Dopo 
aver utilizzato l'opzione 1 per creare il file su 
disco, occorre infatti - prima di effettuare 
qualsiasi operazione di lettura o scrittura sul 
file - selezionare l'opzione 2 di definizione 
del file corrente. 

Una volta definito quest'ultimo, si potranno 
utilizzare a piacere tutte le opzioni del me- 
nu di selezione. 

Il secondo inconveniente consiste in un 
messaggio d'errore “Bad subscript", che si 
verifica quando si cerca di inserire un re- 
cord il cui numero è superiore al numero 
totale di record assegnato inizialmente. 
Anche questo inconveniente non dipende 
dal programma, ma da un'errata spiega- 
zione nell'articolo: il numero totale di re- 
cord che si assegna attraverso l'opzione 0 
rappresenta infatti il limite massimo delle 
dimensioni del file, e non può mai essere 
superato. Quando si crea il file dati con 
l'opzione 1 , conviene quindi fornire al com- 
puter un numero totale di record il più ele- 
vato possibile in modo che esso possa diffi- 
cilmente venire superato. 

Ci scusiamo con tutti i lettori per l'inconve- 
niente. 
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di S. Albarelli 



Rallybrnco è un simpatico e di- 
vertente gioco, che gira su C16 
e Plus/4 e che vi farà trascorrere 
ore e ore di sano divertimento. 


T rasportatevi col pensiero nella gran- 
de e fertile pianura padana, la parte 
più florida della nostra penisola. 

Ad un certo punto scorgete qualcosa 
muoversi tra l’erba appena tagliata: è 
Brucolo, un simpatico bruco verde pi- 
sello, che vagabonda per i prati. 

Egli è in cerca di cibo, perché si è perso 
e non trova più il grande magazzino do- 
ve c’era sempre qualche cassetta di 
frutta nella quale poteva mangiare a 
sazietà: ora sta girovagando per trovare 
un buon frutto da divorare. 

Perché non aiutarlo nella sua affannosa 
ricerca di cibo? 

Non è però tutto così facile come sem- 
bra, perché nella pianura ci sono molti 
pericoli e occorre stare molto attenti. 
Infatti Brucolo è finito in una di quelle 
zone dove ogni persona che ama la na- 
tura coltiva un piccolo orticello, a volte 
anche solo per il piacere di veder cre- 
scere le pianticelle tanto curate. 

La città, come tutti ben sanno, rende 
diffidente chi vi abita, che deve stare 
attento a tutti i pericoli creati dalle me- 
tropoli. 

Perciò questi improvvisati contadini 
hanno pensato bene di elettrificare i re- 
cinti metallici che circondano gli orticel- 
li, per evitare che qualcuno vada a rovi- 
nare tutto il “raccolto”; inoltre quando 
devono curare questo orticello è natura- 
le che portino con sé i loro bambini, che 
al giorno d’oggi possono disporre di mil- 
le tipi di giocattoli elettronici e meccani- 
ci con i quali divertirsi. 

Inoltre, ogni tanto, i frugoletti si dimenti- 
cano i loro giochini nell’orto, con conse- 
guente disperazione dei genitori. 

Tutto questo rende la vita difficile al 


nostro caro amico Brucolo, che deve 
evitare di toccare i recinti elettrificati e 
i giochini lasciati dai bambini dei “colti- 
vatori”. perché potrebbe ricevere una 
scossa fatale. 

Per aiutare in questo pericoloso viaggio 
il nostro amico Brucolo basta un joy- 
stick. 

Facendo partire il gioco il computer mo- 
stra una simpatica presentazione e at- 
tende che l’utente prema un tasto. 
Subito dopo il programma dà il via alla 


sfrenata corsa di Brucolo. 

Per raggiungere l’agognata ricompensa 
(un frutto, non vi dico quale perché do- 
vrete essere voi a scoprirlo) il nostro 
Brucolo dovrà intraprendere un viaggio 
che dura più di cinque minuti e che pre- 
senta molti tipi di pericoli da superare, 
tutti di forma e colore diverso: piattafor- 
me, oggetti lampeggianti, ecc... 

Non mancano naturalmente i recinti 
elettrificati, sotto i quali sono presenti 
tre piccoli fori nel terreno, in uno dei 
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quali dovrà passare Brucolo. 

Se il nostro amico bruco non centrerà 
alla perfezione il foro dove ha intenzio- 
ne di passare, morirà a causa della scos- 
sa, e ciò accadrà anche se toccherà uno 
degli oggetti che troverà sul suo lungo 
cammino. 

Il programma visualizza continuamente, 
nell’angolo in basso a sinistra, il tempo 
trascorso dalla partenza. 

Se vi sentite stanchi o avete paura di 
schiantarvi contro un oggetto, potete 
anche fermarvi per quanto tempo vole- 
te, tenendo premuto il fire. 
Naturalmente, anche il tempo si ferme- 
rà. 


Dopo la morte del vermetto il computer 
visualizzerà il tempo raggiunto e, se 
questo è maggiore del record finora to- 
talizzato, suonerà una breve musichetta 
trionfale. Chiederà quindi al giocatore 
di digitare il proprio nome, che visualiz- 
zerà ogni volta che il gioco termina, in- 
sieme al tempo raggiunto. 

Caratteristiche del gioco 

Questo programma sfrutta al massimo 
le capacità cromatiche e l’utilizzo delle 
finestre nel C16 e nel Plus/4. 

Infatti, nel titolo vengono stampate mol- 
te “tendine” di tutti i colori posseduti 


da tali computer, e in più con tutte le 
tonalità di luminanza, dalla più scura 
alla più chiara. 

Questi colori vengono altresì utilizzati 
nel gioco durante la corsa, perché gli 
ostacoli si colorano con tutti i colori pos- 
sibili, con luminosità casuale. 

Inoltre durante il gioco viene utilizzato 
lo scroll della finestra, definita con la 
grandezza dello schermo. 

Tale scroll viene effettuato PRINTando 
un CHR$(27) (che corrisponde al tasto 
ESCAPE) seguito da una W che aziona 
lo scroll. 

Ed ora buon divertimento e occhio a 
Brucolo!! 


Rallybruco 

2 GOSUBl 0000 
5 VOL3 

10 PRINT" {CLR}"CHR$ (27) "T{ 
9 ) CHR$ (27) "B" :COLOR4 , 1 
DIMA$ (7) : SC=3072 


19 

20 

21 


22 


23 


29 

30 

40 

50 


60 

61 

62 

65 

66 
67 
70 
80 
81 
82 

83 

84 

85 


86 


87 


88 


89 


:rem 163 
:rem 89 
25 GIU' } M TAB ( 3 
:rem 224 
:rem 10 


TI$=" 000000" :X=20 : PRINT" {CLR } " 

: rem 1 47 

A$ ( 1 ) ="UI_{GIU ' } { 2 S IN } JK" : A$ (2) ="U*I 
{GIU'H 3 SIN} J*K " ; A$ (3) ="U{ 2 * _}l 
{GIU'H 4 SIN}JT2 *}K" : rem 227 

A$ (4 ) = "U { 3 Ml_{GIU'}I 5 SIN } J { 3 *_} 

K" : A$ (5) ="U{ 4 Ml_{GIU’ 

T 4 *}K" 

A$ ( 6 ) ="U { 5 * } I {GIU 1 }{ 


H 6 


SIN } J 
: rem 
SIN } J { 5 


60 


} 


K" : A$ (7) = "U{ 6 MUGIU'H 8 SIN}J 
T 6 M K" : rem 1 81 

REM INIZIO GIOCO :rem 146 

FORA= 2TO8 : FORI Y=0TOl :COLOR4 , A+8* IY , 3 : F 
ORB= 1 TO50 : rem 154 

IFB/20INT (B/2 ) 0RB>950RB< 50RZ>OORTY>OT 
HEN60 : rem 140 

COLORI ,A+8*IY,INT(RND(1 ) *7) : PRINT" 

{ HOME } " TAB ( I NT ( RND ( 1 ) * (40- A) ) ) A$ (A-l ) 

:rem 106 

PRINT" {HOME}"CHR$ (27) "W{ 24 GIU'}"TI$; 

:rem 52 

IFJOY ( 1 ) = 1 28THENQ$=TI$ :rem 228 

IFJOY (1 ) =1 28ANDQ$<>""THENTI$=Q$:G0T062 

1 98 
30 
241 
240 
27 
12 
57 
222 
60 
1 04 


: rem 
: rem 
: rem 
: rem 
: rem 
; rem 
: rem 
: rem 
: rem 
: rem 


X=X+ (JOY (1 ) =7) - (JOY ( 1 ) =3) 

IFX>38THENX=1 
IFX<lTHENX=38 

IFPEEK (SC+480+X) 032THEN1000 
POKESC+480+X , 81 
SOUND3 ,950,1 : Z=Z-. 25 
TY =TY - 1 : IFTY = 0THEN85 
IFRND ( 1 ) < . 98ORZ>0THEN90 
TY=6:GOTO90 
PRINT" {HOME}{ 8 SPAZI }J[<R>]K 
{ 8 SPAZI }Jl<R>]K{ 8 SPAZI}J [<R>]K 
{ 6 SPAZI}"; : rem 97 

PRINT" {HOME} {GIU' } [< 39 +>]";: POKE4051 
,102 :rem 218 

PRINT" {HOME} { 2 GIU'H 8 SPAZI }U[<E>] 
I{ 8 SPAZI }U [<E>J I_{ 8 SPAZI }U(<E>]_I 
T 5 SPAZI }";: Z=1 :TY=TY-1 :rem 206 

PRINT" {HOME} { 3 GIU'H 39 SPAZI}"; 

:rem 194 

PRINT" {HOME} { 4 GIU’H 39 SPAZI}"; 

:rem 212 


90 NEXT: NEXT: NEXT : rem 154 

99 IFBX>0THEN1 99 :rem 219 

100 A$ (1 )="{<*>]£" :A$ ( 2 ) ="OP{GIU ' } 

{ 2 SI N }[<*>]£": A$ ( 3 ) ="OP {GIU ' } 

{ 2 SIN} [ <G> ] [<M>] {GIU’TT 2 SIN}[<*>] 

:rem 67 

101 A$ (4) =" {RVS }£[<*>] {GIU '} { 2 SIN}{OFF} 
[<*>]£" :A$ (5) =" {RVS }£[<*>] {GIU' } 

{ 2 SIN} {OFF} 1<G>] [ <M> J {GIU' } 

{ 2 SIN} [<*>]£" :A$ (6) ="S S{GIU ' } 

{ 3 SIN } { 3 STIGIU'H 2 SIN }S" 

: rem 4 

102 A$ (7) =" {RVS} [<D>) { <F> ] {GIU ' } 


{ 3 S I N } { 3 SPAZI } {GIU' } { 3 SIN}{<R>] 

r/DSl (rxf!' 1( CTHl •rom ? 1 ^ 



[ <R> ] {GIU' } { 3 SIN}J*K" 

: rem 

235 

103 

BX= 1 : GOT02 9 

: rem 

1 22 

199 

IFBX> 1 THEN299 

: rem 

1 4 


200 A$ (1 )=" {FLASH ON } { 2 Q}{GIU'} 

{ 2 S IN } { 2 Q}{ 2 Q } " : A$ ( 2 ) =" 

{FLASH ON} {RVS} [<A>] [<R>) [ <S> ] {GIU' } 

{ 3 SIN}[<Z>] [ < E> ] [ < X > J {OFF } {OFF } " : A$ 
( 3) =" {RVS }*UI*{GIU' }{ 4 SIN } { 4 SIN} 
J{ 2 Mk{OFFT{OFF}" : rem 203 

201 A$ (4) ="IRVS} [<*>]£[<*>}£[<*>] {GIU’} 

{ 5 SIN} {OFF} [<*>]£(<*>}£(<*>]" :A$ (5) 
=" {RVS} . . {GIU’ } { 2 SIN} {FLASH ON}UI 
{GIU ' } { 2 SIN} { 2 SIN}JK{OFF }" : A$ ( 6 ) = 
" { RVS } { FLASH ON } { 3 V}lGIU'}{ 3 SIN} 

{ 3 V} {OFF} {OFF}" :rem 84 

202 A$ (7) =" {RVS} [<D>1 [<F>] {GIU* } 

{ 3 SIN} V {GIU ' } { 3 SIN}@ L{GIU'} 

{ 3 SIN } J*K " :rem 228 

203 BX = 2:G0T029 -.rem 124 

299 IFBX>2THEN399 :rem 17 

300 A$ (1 )=" {FLASH ON}{< 2 +>][< 2 +>]":A$ 
(2) =" {RVS} {FLASH ON } [< 3 B>]{GIU'} 

{ 3 SIN} [ < 3 B> 1 [ < 3 B>} {OFF}" : A$ (3) = 
"{FLASH ON} U_I {GIU ' } { 3 SINjJKJKK" 

:rem 86 

301 A$ (4) =" {RVS} {FLASH ON}JI {GIU ' } 

{ 2 SIN } U KK {OFF } " ; A$ (5) =" {FLASH ON }M 
N {GIU ' } { 3 SIN } {OFF }N [ <Y> ] MM" : A$ (6) = 
"TRVS} {FLASH ON} S {GIU'H 3 SIN} 

{ 3 SIN}W[<0>]W{GIU' } { 3 S IN } J*K {OFF } 
" : rem 234 

302 A$ (7)=" {FLASH ON } { 3 *}{ 3 *}{<R>J 
{FLASH ON } { 3 *}{ 3 ^T{GIU’T{ 7 SIN} 

[<E>H{GIU’T{ 3 SIN}J [<R>] K{GIU' } 

{ 4 SIN}j* [<E>] *K" : rem 80 
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303 

BX=3:G0T029 

: rem 

1 26 

399 

FORC A= 1 TO 1 2 : READHOS : PRINTCHR8 (27) 

" W 


{ HOME } " TAB (14) HO$ ; 

: rem 

72 

400 

I FX>20THENX=X- 1 

: rem 

1 49 

401 

I FX< 20THENX=X+ 1 

: rem 

1 46 

41 0 

POKESC+480+X , 81 

: rem 

57 

41 1 

SOUND3 ,950, 1 

: rem 

1 21 

412 

FORDF=lTOl 00: NEXT: NEXT 

s rem 

1 56 

413 

DATA" [ <2> ] { 4 SPAZI }KJ" 

: rem 

32 

414 

DATA" { 2 SPAZI } {RED} [<*>] {RVS} 



{ 2 SPAZI} [< 2 0>]{ 2 SPAZI } {OFF } £ 


II 

: rem 

1 77 

415 

DATA" {RED }{<*>} {RVS} { 8 SPAZI } {OFF} 



: rem 

64 

416 

DATA" [<*>) {RVS} { 10 SPAZI } {OFF}£" 




: rem 

37 

417 

DATA" {RVS} { 12 SPAZI} {OFF}" 

: rem 

1 58 

41 8 

DATA" {RVS} { 12 SPAZI} {OFF}" 

:rem 

159 

41 9 

DATA" {RVS} { 12 SPAZI} {OFF}" 

: rem 

160 

420 

DATA" {RVS} { 12 SPAZI} {OFF}" 

:rem 

1 52 

421 

DATA" { RVS } £ { 10 SPAZI }{<*>] {OFF } " 




irem 

33 

422 

DATA" { RVS } £ { 2 SPAZI} [<*>} 

{OFF} [<2> ] 


[<N>] I<K>) {RED ) {RVS}£{ 2 SPAZI} [< 

*>i 


{OFF}" 

2 rem 

74 

423 

DATA" { 5 SPAZI } (<2> ] {RVS} (<N>) {RED} 


{OFF}" 

2 rem 

246 

424 

DATA" " 

2 rem 

248 

430 

FORDF= 1 TO200 : NEXT: SOUND 1 ,595,20 




2 rem 

117 

431 

FORDF = 1 TO 4 0 0 : NEXT 

2 rem 

39 

432 

SOUND! ,596,5 

2 rem 

1 32 

433 

FORDF= ITO 100: NEXT 

2 rem 

38 

434 

SOUND 1 ,596,5 

2 rem 

1 34 

435 

FORDF= 1 TO 1 00 : NEXT 

2 rem 

40 

436 

SOUND 1 ,596,5 

2 rem 

136 

437 

FORDF=lTO200:NEXT 

2 rem 

43 

438 

SOUND 1 ,453,10 

2 rem 

1 74 

439 

FORDF=l TO200 : NEXT 

2 rem 

45 

440 

SOUND 1 ,596,10 

2 rem 

1 75 

441 

FORDF =1 TO200 : NEXT 

2 rem 

38 

442 

SOUND 1 ,685,1 5 

2 rem 

1 81 

443 

FORDF=l TO400 : NEXT 

2 rem 

42 

444 

SOUND 1 ,685,5 

2 rem 

1 34 

445 

FORDF = 1 TO 1 00 : NEXT 

2 rem 

41 

446 

SOUND 1 ,685,5 

2 rem 

1 36 

447 

FORDF= 1 TO 1 00 : NEXT 

2 rem 

43 

448 

SOUND 1 ,685,10 

2 rem 

1 82 

449 

FORD F = 1 TO 200: NEXT 

2 rem 

46 

450 

SOUND 1 , 596 , 1 0 

2 rem 

1 76 

451 

FORDF= 1 TO 2 0 0 : NEXT 

2 rem 

39 

452 

SOUND 1 ,685,10 

2 rem 

1 77 

453 

FORDF=l TO200 : NEXT 

2 rem 

41 

454 

SOUND! ,739,40 

2 rem 

1 82 

455 

SOUND2 ,81 0,40 

2 rem 

1 74 

456 

FORDF= ITO 100: NEXT 

2 rem 

43 

500 

PRINT" {HOME} { 13 GIU'} BRUCOLO HA 

TRO 


VATO UNA MELA, CHE PERO'" 

2 rem 

1 28 

510 

PRINT" {GIU' }{ 5 SPAZI }UN MESE DOPO, E 


' GIÀ’ FINITA." 

2 rem 

240 

520 

PRINT" {GIU' }{ 3 SPAZI }AIUTALO ANCORA 


UNA VOLTA A TROVARE" 

;rem 

10 

530 

PRINT" {GIU' } { 9 SPAZI }DEL CIBO; BUONA 


FORTUNA" :FORDF=lTO5500:NEXT 

2 rem 

58 

540 

PRINT" {CLR} " : BX=0 : GOTO 21 

2 rem 

20 


1 000 IFPEEK (SC + 480+X) Oli 3THEN1009 

:rem 174 

1 001 F0RI=lT03: PRINTCHRS (27) "W"; :S0UNDl , I 
*60,10: NEXT :rem 141 


1 002 

GOTO 80 

: rem 

100 

1009 

SOUND 3 ,200,40 

: rem 

21 2 

1010 

PRINT" {CLR}"TAB(1 1) "{ 5 GIU’jHAI 

RES 


I STI TO PER:" 

: rem 

2 

1020 

PRINTTAB (1 6) MID$ (TI $,3,2) " 

MIN. 

E" 



: rem 

71 

1030 

PRINTTAB (1 7) RIGHT$ (TI$ ,2) " 

SEC." 




: rem 

64 

1031 

GETA$ 

: rem 

10 

1032 

PT$=TI$ : x . ?T$ ) >VAL (HI$ ) THENHI$=P 


T$ : GOSUB2000 

:rem 

221 

1033 

PRINT" { 2 GIU 1 JMAGGIOR TEMPO: "HI$:P 


RI NT" REALI ZZATO DA: "CA$ 

: rem 

171 

1050 

PRINT" { 4 GIU’H 4 SPAZI }VUOI GIOCAR 


E ANCORA (S=SI/N=NO) ?" 

: rem 

223 

1060 

GETA$ : I FA$ = " " THEN 1 0 6 0 

:rem 

1 77 

1070 

I FA$= " N" THENEND 

:rem 

1 45 

1080 

I FA$< >"S" THENl 060 

: rem 

196 

1090 

GOTO 20 

2 rem 

101 

2000 

FORDF=1TO2000:NEXT:SOUND1 , 

595,20 




2 rem 

208 

2001 

FORDF= 1 TO400 : NEXT 

2 rem 

82 

2002 

SOUNDl ,596,5 

2 rem 

1 75 

2003 

FORDF= 1 TO 1 00 : NEXT 

2 rem 

81 

2004 

SOUNDl ,596,5 

2 rem 

177 

2005 

FORDF= ITO 100: NEXT 

2 rem 

83 

2006 

SOUNDl ,596,5 

2 rem 

179 

2007 

FORDF= 1 TO200 : NEXT 

2 rem 

86 

2008 

SOUNDl ,453,10 

2 rem 

217 

2009 

FORDF=lTO200: NEXT 

2 rem 

88 

2010 

SOUNDl ,596,10 

2 rem 

21 8 

201 1 

FORDF=l TO200 : NEXT 

2 rem 

81 

201 2 

SOUNDl ,685,15 

2 rem 

224 

201 3 

FORDF= 1 TO400 : NEXT 

2 rem 

85 

201 4 

SOUNDl ,685,5 

;rem 

177 

201 5 

FORDF=l TOl 00 : NEXT 

2 rem 

84 

2016 

SOUNDl ,685,5 

2 rem 

179 

201 7 

FORDF= 1 TOl 00 : NEXT 

2 rem 

86 

201 8 

SOUNDl ,685,10 

2 rem 

225 

201 9 

FORDF= 1 TO200 : NEXT 

2 rem 

89 

2020 

SOUNDl ,596,10 

2 rem 

219 

2021 

FORDF= 1 TO200 : NEXT 

2 rem 

82 

2022 

SOUNDl ,685,10 

2 rem 

220 

2023 

FORDF= 1 TO200 : NEXT 

2 rem 

84 

2024 

SOUNDl ,739,40 

2 rem 

225 

2025 

SOUND2 , 81 0,40 

2 rem 

217 

2026 

FORDF= 1 TO 1 00 : NEXT 

2 rem 

86 

2030 

PRINT" { 2 GIU’} BRAVISSIMO 

, HAI 

REAL 


I ZZATO LA MAGGIOR" 

:rem 

77 

2040 

PRINTTAB (7) "DURATA; SCRIVI 

IL TUO 

NOM 


E: " 

2 rem 

1 84 

2045 

FOREC = 1 TO 1 0 : GETSV$ : NEXT 

irem 

12 

2050 

INPUTCA$ 

2 rem 

255 

2060 

RETURN 

: rem 

168 

10000 

1 COLORO, 1 :COLOR4, 1 :PRINT" {CLR}" 




2 rem 

229 

10001 

FORL=0TO7 : PRINT" { HOME } " ; 

;rem 

197 


10002 FORQ=OTOL: PRINT" {GIU 1 }"; :NEXT:F0RJ = 

2T0 1 6 :rem 59 

10003 COLORI , J,L: PRINTTAB ( (J*2) -4) " {RVS}B 

RUCORALLY": NEXT: NEXT :rem 32 

10004 PRINT" {GIU' } { 5 SPAZI }PREMERE ’ FUOC 

O.' PER INIZIARE."; :rem 138 

10005 IFJOY (1 ) =0THEN1 0005 :ren> 139 

10006 PRINT" {CLR}":COLORO, 2:COLORl ,1 : RETO 

RN :rem 3 
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di J. Dcaringcr 

trad. ed adatt. 

di L. Priotto 



Con questo programma non do- 
vrete più preoccuparvi di can- 
cellare accidentalmente qualche 
file importante dal vostri dischi. 
Esso infatti vi consente di pro- 
teggere dalla cancellazione o 
dalla sovrascrittura sia singoli 
file che l’intero disco. La versio- 
ne per VIC20 richiede un’espan- 
sione di memoria da almeno 3 
Kbyte. 


V i è mai capitato di cancellare un 
certo programma dal disco e poi 
immediatamente accorgervi di aver agi- 
to sul programma sbagliato? Può essere 
stato a causa di una vostra distrazione, 
oppure potreste aver usato l’asterisco, 
ed aver cancellato magari quattro o cin- 
que file il cui nome inizia con gli stessi 
caratteri... 

Alcuni computer, come ad esempio Ap- 
ple ed Atari, permettono di “aprire” e 
“chiudere” i file su disco, offrendo quin- 
di una valida protezione contro errori 
nelle cancellazioni. Non si confondano i 
termini “aprire” e “chiudere” qui usati 
con quelli relativi alle istruzioni OPEN 
e CLOSE: in questo articolo intendere- 
mo sempre per “chiusura” di un file la 
sua protezione software contro even- 
tuali cancellazioni o sovrascritture, e 
per “apertura” di un file il procedimen- 
to inverso. 

I computer Commodore non posseggo- 
no comandi atti a proteggere dei file su 
disco da cancellazioni accidentali, ma il 
drive 1541 possiede all’interno del 
DOS (Disk Operating System) delle rou- 
tine in linguaggio macchina che possono 
essere usate per questo scopo. 

Ogni volta che il 1541 inizia la procedu- 
ra di cancellazione di un file per prima 
cosa cerca il file all’interno della direc- 
tory, per assicurarsi della sua esistenza. 
Una volta trovato, il drive acquisisce 
una serie di informazioni sul file stesso, 
informazioni che sono contenute con il 
nome del file nella directory alla traccia 
18. Queste informazioni sono tra l’altro 
la traccia e il settore del disco in cui 
inizia il file vero e proprio, la lunghezza 


del file e il suo tipo (PRG, SEQ, ecc.). 
Un’altra routine del DOS controlla il pri- 
mo byte relativo ad ogni file che normal- 
mente è un numero compreso tra 128 
e 132. Se il bit 6 di questo byte è posto 
a 1, il DOS tratta il file come “chiuso”, 
e non lo cancellerà quindi dal disco. 

Il programma qui presentato usa i co- 
mandi di accesso diretto al disco per 
chiudere i file, in modo che essi non pos- 
sano più essere cancellati, a meno che, 
ovviamente, essi vengano riaperti. 
Quando un file è stato chiuso, in corri- 
spondenza ad esso nella directory com- 


pare un segno di minore (<), per ricor- 
darvi il suo stato “indelebile”. 
L’opzione di cancellazione di un file è 
l’unica che permette le “wild card” al- 
l’interno del nome del file - ricordiamo 
che le wild card sono asterisco e punto 
di domanda -, mentre tutte le altre op- 
zioni del menu richiedono la digitazione 
dell’intero nome del file. 

Il programma fornisce anche l’opzione 
di “chiusura” dell’intero disco: essa 
blocca qualunque operazione che com- 
porti l’accesso al disco per operazioni 
diverse dalla lettura, fino a che il disco 
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stesso venga “riaperto” attraverso op- 
zione. 

Alcune raccomandazioni 

Come è ovvio, i file protetti in questo 
modo contro la cancellazione verranno 
comunque cancellati da un’operazione 
di formattazione disco con 

OPEN 15,8, 15, u NO:NOMEDISCO,ID” 

o da una operazione di azzeramento 
della directory con 

OPEN 15,8, 15, “NO:NOMEDISCO” 

In particolare quest’ultimo comando 
non avrà effetto solo se è stato “chiuso” 


l’intero disco. 

Infine si raccomanda di non usare que- 
sto programma con dischi contenenti 
programmi commerciali protetti: questi 
ultimi infatti usano spesso la traccia 18 
per le protezioni anticopia e, dal mo- 
mento che “File Protector” ne modifica 
alcuni byte, può essere che non si riesca 
più a caricare i programmi per l’inter- 
vento delle protezioni. 

Il sistema usato per “chiudere” l’intero 
disco è simile a quello usato per i singoli 
file: nella traccia 18, settore 0, è conte- 
nuta la BAM (Block Availability Map). 
I suoi primi due byte dicono al 1541 
dove può essere trovato il primo blocco 
della directory, contenente i primi otto 
nomi di file. Il terzo byte della BAM 


indica con quale drive è stato formatta- 
to il dischetto: un valore 65 indica un 
1541 con formato 4040. Se il valore è 
diverso, ciò indica che il disco è stato 
formattato su un altro tipo di drive, e il 
DOS leggerà il disco, rifiutandosi invece 
di scrivervi sopra. 

Scrivendo quindi un numero diverso al- 
l’interno di questo byte, il disco può es- 
sere protetto contro la scrittura. Il pro- 
gramma modifica inoltre la locazione 
166 da 65 in 66, per indicare visiva- 
mente se un disco è stato o meno pro- 
tetto contro la scrittura. La testata della 
directory di un disco “chiuso” conterrà 
infatti il codice “2B”, invece del familia- 
re “2A”, a fianco del codice identificato- 
re del disco. 


File Protector 

versione per C16 - Plus/4 

100 PRINT" {CLR}" :Q$=CHR$ (1 3) srem 151 
110 U$="{RVS}{ 40 SPAZI }" :NS=1 2 :rem 25 
1 20 FORA=l T08 : KEYA, " " : NEXT: KB=239:SF=1 347 
:KL=198:Fl=4:F7=3 : rem 203 

130 GOSU B 1 8 3 0 : GOTO 16 30 :rem 29 

1 40 PRINT# 1 5,"Ul " ; 2; 0;T; SsGOTOl 01 0 

: rem 


1 50 

1 60 

170 
1 80 
190 
200 
210 
220 


230 

240 

250 

260 

270 

280 


203 

PRINT# 1 5 , "B-P 2 0" : PRINT#1 5, ,, U2" ;2;0; 
T; S : GOTO 1010 
T=PEEK (681) : S=PEEK ( 682 ) 


1 74 


: rem 
: RETURN 

:rem 55 

: :rem 210 

REM *********************** : rem 67 
REM * CHIUDE TUTTI I FILE * :rem 135 
REM *********************** : rem 60 
: :rem 205 

PRINT" {CLR}"SPC (NS) "CHIUDI TUTTI I FI 
LES" : PRINTU$ : GOSUBl 000:T=1 8:S=1 

:rem 10 

P = 2 : GOSUBl 4 0 srem 163 

GET# 2 , A$ s Tl =ASC (A$+CHR$ (0) ) sGET#2,A$s 
S 1 =ASC ( A$+CHR$ ( 0 ) ) srem 199 

FORI =0TO7 SPRINT#! 5 ."B-P" ; 2;P+32*I 

srem 1 36 

GET# 2 , A$ s A=ASC ( A$+CHR$ (0) ) s IFA= . THEN2 
90 srem 143 

IFAAND64THEN290 srem 112 

PRINT#! 5, "B-P"; 2 ; P+32* I s PRINT# 2 ,CHR$ ( 


360 

370 

380 

390 


400 


41 0 


: rem 


21 1 
[SH 
1 77 


H$=CHR$ (1 8) SPRINT" {CLR }{ RVS } PREMI 
IFT] PER PAUSA {GIU 1 } srem 

GOSUBl 000 s PRINT# 15, "M-R"CHR$ (1 44)CHR$ 
( 7 ) CHR$ ( 23 ) srem 147 

FORI =0TO22s GET# 1 5,A$sH$=H$+ (A$+CHR$ (0 
) ) s NEXTs PRINTH$" {BLK } " s POKEl 40,1 sT=18 
sS=l srem 91 

GOSUBl 40 s SYS 82 8 s GOSUBl 60 s IFPEEK (SF)TH 
ENWAITSF,1,1 srem 100 

IFTTHEN400 srem 59 


420 PRINT# 15, "M-R"CHR$ (250)CHR$ (2) sGET#! 5 
, LO$ s PRINT# 15 f "M-R"CHR$ (252)CHR$ (2) 

srem 222 

4 30 GET# 1 5 , HI$ s PRINTASC (LO$+CHR$ (0) ) +256* 
ASC (HI$+CHR$ (0) ) " BLOCCHI LIBERI" 

s rem 167 

4 40 GOSUBl 070 s GOSUBl 0 80 s POKEl 40, Os RETURN 

s rem 215 

450 s srem 211 

460 REM *************************** 

srem 236 

470 REM * INPUT DEL NOME DEL FILE * 

srem 92 

480 REM *************************** 

srem 238 

490 s srem 215 

500 PRINT" {GIU' } [Fi ] ESCl{ 13 SPAZl}[F7] 
DIRECTORY srem 146 

510 PRINT" {GIU' }NOME FILE? "CU$ ; s POKEKB , 0 
s f$=" " srem 116 

520 KQ = PEEK ( KL) s GETA$ s IFA$ = " " ANDKQ = 64THEN 
520 : rem 1 35 

530 IFKQ=Fl ORKQ=F7THENPRINTCHR$ (20) sRETUR 
N srem 248 

540 IFA$=CHR$ ( 20 ) ANDF$ = " "THEN520 s rem 2 
550 IFA$=CHR$ (13) ANDF$< >" "THENPRINTCHR$ (2 
0) s RETURN srem 6 

560 IFA$=CHR$ (13) ANDF$ = " "THEN520 s rem 6 
570 IFA$=CHR$ ( 20 ) THENPRINTCHR$ (20) A$CU$; s 
F$=LEFT$ (F$ ,LEN (F$ ) -1 ) SGOTO520 



AOR64) ; 

s rem 

251 




s rem 

102 

290 

NEXT: GOSUBl 50: IFETHENRETURN 

s rem 

71 

580 

PRINTCHRS (20) A$CU$; :F$ 

=F$+A$:GOTO520 

300 

PRINT" TRACCIA" T" SETTORE" S"CH IUSO" 

: T=T 




s rem 

31 


1 : S=Sl : IFTTHEN230 

s rem 

250 

590 

s 


s rem 

216 

310 

GOSUBl 070 : GOSUBl 080:RETURN 

s rem 

1 21 

600 

REM 

****************** 

s rem 

1 10 

320 

• 

s rem 

207 

610 

REM 

* CHIUDE UN FILE * 

s rem 

68 

330 

REM ********************** 

s rem 

22 

620 

REM 

****************** 

s rem 

112 

340 

REM * LEGGE LA DIRECTORY * 

s rem 

1 1 7 

630 

s 


s rem 

21 1 

350 

REM ********************** 

s rem 

24 

640 

PRINT" {CLR}" ; 

s rem 

57 


650 

660 

670 

680 

690 

700 

710 


PRINTSPC (NS) "CHIUDI UN FILE" s PRINTU$ 

srem 253 

GOSUB500s IFKQ=F 1 THENRETURN srem 217 
IFKQ=F7THENGOSUB370 s GOTO650 s rem 21 7 
POKE679, 1 s GOSUBl 1 60 s GOSUBl 000sT=l 8sS= 
1 srem 252 

GOSUBl 40 s SYS 82 8 : A=PEEK ( 252 ) s IFATHEN72 


0 

s rem 

40 

GOSUBl 60: IFTTHEN690 

s rem 

1 53 

PRINT" {GIU' } { RED } F I LE 

NON TROVATO 


{BLK} {GIU' }" :GOTO660 

s rem 

128 
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720 IF (AAND64 ) THENPRINTFS : PRINT" E' GIÀ’ 
CHIUSO" :GOSUBl 070 : GOSUBl 080: GOTO760 




: rem 

1 08 

730 

P=PEEK (255) : GOSUBl 40 : PRINT# 1 5 , "B-P 

" ; 2 


; P: PRI NT# 2 ,CHR$ (AOR64) ; 

:rem* 

32 

740 

GOSUBl 50 : IFETHEN640 

: rem 

136 

750 

GOSUBl 070: PRINTFS: PRINT" E' 

CHIUSO" 

: GO 


SUBÌ 080 

: rem 

21 8 

760 

POKE67 9 , 0 : GOTO640 

: rem 

219 

770 

: 

: rem 

216 

780 

REM **************** 

: rem 

35 

790 

REM * APRE UN FILE * 

: rem 

195 

800 

REM **************** 

: rem 

28 

810 

: 

: rem 

21 1 

820 

PRINT" {CLR}" ; 

:rem 

57 

830 

PRINTSPC (NS) "APRI UN FILE": 

PRI NTU $ 




: rem 

1 1 5 

840 

GOSUB500: IFKQ=Fl THENRETURN 

: rem 

21 7 

850 

IFKQ=F7THENGOSUB370: GOTO 830 

: rem 

21 7 

860 

POKE679, 1 : GOSUBl 1 60:GOSUBl 000:T=1 8 

» : S = 


1 

: rem 

252 

870 

GOSUBl 40:SYS828: A=PEEK ( 252 ) 

: IFATHEN90 


0 

: rem 

40 

880 

GOSUBl 60: IFTTHEN870 

: rem 

1 62 

890 

PRINT" {GIU' } {RED }FILE NON TROVATO 



{BLK} {GIU’ }" :GOTO840 

: rem 

1 37 

900 

IF (AAND64) = .THENPRINTF$Q$"E 

GIÀ' 

APE 


RTO" : GOSUBl 070 :GOSUBl 080:GOTO940 




: rem 

1 33 

910 

P=PEEK ( 255) : GOSUBl 40 : PRINT# 1 5 , "B-E 

>" ; 2 


; P: PRI NT# 2 ,CHR$ (AANDl 35) ; 

:rem 

129 

920 

GOSUBl 50 : IFETHEN82 0 

: rem 

1 36 

930 

GOSUBl 070: PRINTFS: PRINT"E’ 

APERTO" 

1 :GO 


SUBÌ 080 

: rem 

21 8 

940 

POKE679 , 0 : GOTO 820 

: rem 

219 

950 

2 

: rem 

216 

960 

REM ********************************* 


****** 

: rem 

233 

970 

REM * LEGGE CANALE DEGLI ERRORI DEL D 


RIVE * 

: rem 

1 03 

980 

REM ********************************* 


****** 

: rem 

235 

990 

; 

: rem 

220 


1000 CLOSE2 :CLOSEl 5:0 PENI 5,8,1 5, "IO" :OPEN 
2,8,2,"#" : rem 35 

1010 INPUT# 1 5 , E , EM$ , ET , ES :rem 183 

1 020 I FE= 7 30RE= 2 6THENGOSU B 1 070:GOTOl 050 

:rem 121 

1030 IFETHENPRINT" {RED } {RVS} ERRORE: " : PRIN 
TE" , " EM$" , "ET" , "ES" { BLK } " : GOSUBl 0 70 : 
END :rem 121 

1040 RETURN :rem 165 

1050 I FE= 7 3THENPRI NT" I L DISCO E' CHIUSO": 

GOSUBl 080: RETURN :rem 28 

1060 PRINT" TOGLI L'ADESIVO DAL DISCO" :GOS 
UBI 080: RETURN :rem 117 

1070 CLOSE2:CLOSEl 5:RETURN :rem 160 

1080 PRINT" {RVS } {GIU 1 {PREMI UN TASTO": POR 
EKB,0 :rem 186 

1090 KQ=PEEK(KL) :GETA$: IFA$=""ANDKQ=64THE 
N1090 :rem 237 

1100 RETURN :rem 162 

1110 : :rem 253 

1120 REM ******************************** 
********** :rem 140 

1130 REM * MEMORIZZA NOME PER LINGUAGGIO 
MACCHINA * :rem 235 

1140 REM ******************************** 
********** :rem 142 

1150 : :rem 1 


1 1 60 
1170 


1180 

1190 


IFLEN (F$ ) <1 6THENF$=F$+CHR$ (1 60) :GOTO 
1160 : rem 35 

FORI = 1 TOLEN (F$) :POKE683+I ,ASC (MID$ (F 
$,I,1) ) :NEXT:POKE700,0: RETURN 

: rem 


REM 


: rem 

************************* 


: rem 
DISCO * 

: rem 

★****★★★******★*★***★★★** 


1200 REM * CHIUDE L'INTERO 
1210 


240 

4 

201 

99 


1 220 
1230 

1 240 


1 250 
1 260 

1270 


1 280 

1 290 

1 300 
1310 
1 320 
1 330 
1 340 
1 350 
1 360 

1370 

1380 

1390 

1 400 

1410 

1420 

1430 

1 440 
1 450 
1460 
1 470 
1480 
1490 


REM 

: rem 1 94 

: : r em 2 5 5 

PRINT" {CLR } " SPC (NS) "CHIUDI L'INTERO 
DISCO" :PRINTU$ :rem 242 

PRINT" {GIU' JlNSERISCI DISCO NEL DRIV 
E { 2 SPAZI} [Fi] ESCE" : FORTD= 1 TO900 : N 
EXT:GOSUBl 080 :rem 203 

IFKQ=Fl THENRETURN :rem 182 

GOSUBl 000 :T=1 8: S=0: GOSUBl 40: PRINT# 1 5 
,"B-P 2 2" : rem 106 

PRINT#2,CHR$ (66) ; : PRINT# 1 5 , "B-P 2 16 
6" : PRINT #2 ,CHR$ (66) ; :GOSUBl 50: IFETHE 
Ni 230 : rem 1 79 

GOSUBl 070: GOSUBl 000: GOSUBl 070 

:rem 16 

PRINT" IL DISCO E' ORA PROTETTO DA SC 
RITTURA" : GOSUBl 080: RETURN :rem 86 
: : rem 2 54 

rem 241 
rem 244 
rem 243 

: :rem 2 

PRINT" {CLR}"; :rem 104 

PRINTSPC (NS) "CANCELLA UN FILE": PRINT 
U$ :rem 169 

GOSUB500: IFKQ=Fl THENRETURN :rem 8 

I FKQ = F 7THENGOSU B 3 7 0 : GOTO 1360 

:rem 55 

INPUT" {GIU' } SEI SICURO"; A$: IFA$<>"S" 
THEN 1 3 50 : rem 63 

GOSUBl 000 : PRINT# 1 5 , "SO : " +F$ : INPUT# 1 5 
,E,EM$,ET,ES: I FE> 1 THENGOSUBl 020: GOTO 
1350 : rem 114 

GOSUBl 070: IFET= .THENPRINT" {REDjlL FI 
LE E' CHIUSO O NON SUL DISCO { BLK } " : G 
OSUBl 0 80 : GOTO 1 3 50 :rem 210 

I FET> 1 THENPR I NTET ; EM$ : GOSUBl 0 8 0 : GOTO 
1350 :rem 99 

PRI NTF$ : PRINT"CANCELLATO" :GOSUBl 080: 
GOTO 1 3 50 : rem 95 

: :rem 3 

1 20 


REM ******************** 
REM * CANCELLA UN FILE * 
REM ******************** 


REM ***************** 
REM 
REM 


* APRE IL DISCO * 
***************** 


PRINT" {CLR} "SPC (NS) " 
NTU $ 

1500 PRINT" {GIU ' } INSERISCI 


: rem 
: rem 
:rem 
: rem 

APRI DISCO" 
:rem 
DISCO NEL 


50 
1 22 
7 

PRI 

44 

DRIV 


E { 3 SPAZI} [Fi] ESCE" : FORTD= 1 TO900 : N 
EXT:GOSUBl 080 :rem 202 

IFKQ=F1 THENRETURN :rem 181 

GOSUBl 000:T=1 8: S=0: GOSUBl 40: rem 1 34 
PRINT# 1 5 , "M-W" ;CHR$ ( 1 ) ;CHR$(1) ;CHR$( 
1);CHR$(65); :rem 141 

1540 PRINT# 1 5 , "B-P 2 2" : PRINT#2 ,CHR$ (65) ; 
: PRINT# 1 5 , "B- P 2 166" :rem 1 

PRINT#2 ,CHR$ (65) ; :GOSUBl 50: IFETHENl 4 
90 :rem 44 


1510 
1 520 
1 530 


1 550 


SUPERO 16® 10/85 31 


1 560 

1 570 
1580 
1 590 
1600 
1610 
1620 
1630 

1640 

1650 

1660 

1670 

1680 

1690 

1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1 850 

1 860 

1870 

1880 

1890 

1 900 

1910 

1920 

1930 

1 940 

1950 

1960 

1970 

1980 


PRINT" 

PRINT" 

PRINT" 


3) 

4) 

5) 


PRINT" 
PRINT" 
PRINT" 
PRINT" { 2 
LTA" 


6 ) 

7) 

8 ) 


GOSUBl 40:GOSUBl 070:PRINT"IL DISCO E' 
APERTO" :rem 172 

GOSUBl 080: RETURN :rem 48 

s :rem 8 

REM ******************* ;rem 209 

REM * MENU PRINCIPALE * :rem 27 

REM ******************* :rem 202 

: :rem 3 

PRINT" {CLR} {BLK} {GIU' }"SPC (NS-2) "<<P 
ROTETTORE FILE>>" :rem 118 

PRINT" {GIU'} 1) DIRECTORY :rem 154 

PRINT" 2) CHIUDI TUTTI I FILE 

:rem 143 
CHIUDI UN FILE : rem 81 

APRI UN FILE : cem 201 

CHIUDI L'INTERO DISCO 

:rem 72 
APRI UN DISCO :rem 31 

CANCELLA UN FILE :rem 205 

ESCI :rem 253 

GIU'} INSERISCI LA TUA SCE 
:rem 153 

GETAS: IFA$ = ""THENl 730 :rem 185 

C=VAL(A$) : IFC<l0RC>8THENl 730 

:rem 178 

ONCGOSUB370 , 220,640,820,1230, 1490,13 
50,1770 :rem 239 

GOTO! 630 :rem 209 

CLOSE2:CLOSEl 5:END :rem 158 

: :rem 10 

REM ******************************** 
*** : rem 1 1 5 

REM * VARIABILI E LINGUAGGIO MACCHIN 
A * :rem 243 

REM ******************************** 
*** :rem 108 

: :rem 5 

POKE679 , 0 : POKEl 40 , 0 :CU$=CHR$ ( 31 ) +CHR 
$(161) +CHRS (144) :rem 107 

FORQZ=828TOl 006 : READ ZQ : POKEQZ , ZQ : NEX 
T: RETURN :rem 39 

DATA 169,0, 1 41 ,1 68,2,1 33,253,1 62,2,3 

2.198.255.32 :rem 51 

DATA 228,255,141 ,169,2,32,228,255,14 
1,170,2,230,253 :rem 197 

DATA 230,253,32,228,255,133,252,165, 
253,133,255,32,228 :rem 96 

DATA 255,32,228,255,230,253,230,253, 
160,0,32,228,255 :rem 246 

DATA 230, 253,1 53,1 89,2,200,24, 1 92,16 
,144,242,160,243 :rem 244 

DATA 32,228,255,230,253,165,144,240, 
3,141,168,2,200 :rem 183 

DATA 208,241 ,165,252,208,7,173,168,2 
,208,22,240,191 :rem 199 

DATA 165,140,240,3,32,199,3,173,167, 

2.240.3.32 :rem 196 

DATA 175,3,173,168,2,240, 171 ,32,204, 
255,96,160,0 :rem 47 

DATA 185,172,2,240,8,217,189,2,208,7 
,200,208,243 :rem 52 

DATA 238,168,2,96,169,0,133,252 

:rem 250 

DATA 96,160,0,185,189,2,240,6,32,210 
,255,200,208 :rem 46 

DATA 24 5, 165, 2 52, 41, 64, 240, 10, 169, 14 
4,32,210,255,169,60,32,210,255, 169 

:rem 116 

DATA 13,32,210,255,169,144,32,210,25 
5,96 : rem 172 


File Protector 
versione per VIC 20 


100 

no 

120 

130 

140 

1 50 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 


400 

410 

420 


430 

440 

450 

460 

470 

480 

490 

500 


PRINT" {CLR}" :Q$=CHR$ (1 3) :rem 151 
U$ = " {RVS } { 40 SPAZI }":KB=198:SF=653:K 
L=203 :rem 149 

F1=39:F7=63:NS=4:U$=LEFT$ (U$,23) 

:rem 246 

GOSUBl 830:GOTOl 630 :rem 29 

PRI NT# 1 5 , "U 1 " ; 2; 0; T; S: GOTO 1 01 0 

:rem 203 

PRINTfl 5, "B-P 2 0" : PRINT# 15,"U2";2;0; 
T; S:GOTOl 01 0 :rem 174 

T=PEEK (681 ) :S = PEEK (682) : RETURN 

:rem 55 

: : rem 210 

REM *********************** ;rem 67 
REM * CHIUDE TUTTI I FILE * :rem 135 
REM *********************** ;rem 60 
: :rem 205 

PRINT" {CLR}CHIUDI TUTTI I FILES":PRIN 
TU$ : GOSUBl 000:T=18:S=1 :rem 238 

P=2 : GOSUBl 40 :rem 163 

GET#2 ,A$ : Tl =ASC (A$+CHR$ (0) ) :GET#2,A$: 
S1=ASC (A$+CHR$ (0) ) : rem 199 

FORI=OT07:PRINTI1 5,"B-P"; 2;P+32*I 

:rem 136 

GET#2,A$: A=ASC (AS+CHRS (0) ) : IFA= .THEN2 
90 :rem 143 

IFAAND64THEN290 :rem 112 

PRINT# 15,"B-P";2;P+32*I: PRINT# 2 ,CHR$ ( 
AOR64); :rem 251 

NEXT: GOSUBl 50: IFETHENRETURN :rem 71 
PRI NT" TRACCI A" T" SETTORE" S "CHI USO" : T=T 
1 :S=S1 : IFTTHEN230 :rem 250 

GOSUBl 070: GOSUBl 080: RETURN :rem 121 
: :rem 207 

REM ********************** ;rem 22 
REM * LEGGE LA DIRECTORY * :rem 117 
REM ********************** :rem 24 
: :rem 211 

H$=CHR$ (1 8) : PRINT" {CLR}{RVS} (SHIFT] P 
ER PAUSA {GIU ' } : rem 52 

GOSUBl 000: PRINT# 1 5,"M-R"CHR$ (1 44)CHR$ 
(7)CHR$ (23) :rem 147 

FORI =0TO22 : GET# 1 5,A$:H$=H$+ (A$+CHR$ (0 
) ) : NEXT: PRINTHS" {BLK}" : POKEl 40, 1 :T=1 8 
:S=1 :rem 91 

GOSUBl 40 : SYS 82 8 : GOSUBl 60: IFPEEK (SF)TH 
ENWAITSF, 1,1 : rem 100 

IFTTHEN400 :rem 59 

PRINT# 1 5 , "M-R"CHR$ (250) CHR$ (2) :GET#15 
, LOS : PRINT# 15, "M-R"CHR$ (252)CHR$ (2) 

:rem 222 

GET#1 5, HI$ : PRINTASC (LO$+CHR$ (0) )+256* 
ASC ( H I $ +CHRS ( 0 ) ) " BLOCCHI LIBERI" 

:rem 167 

GOSUBl 070: GOSUBl 080 : POKEl 40 , 0: RETURN 

:rem 215 
21 1 

236 

92 


REM 


: rem 

*************************** 


: rem 

REM * INPUT DEL NOME DEL FI LE * 

: rem 

*************************** 


REM 

:rem 238 

s srem 215 

PRINT" {GIU* } [Fi ] ESC I { 13 SPAZl}[F7] 
DIRECTORY ' srem 146 
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510 PRINT" {GIU' }NOME FILE? "CUS ; : POKEKB , 0 
:F$="" : rem 116 

520 KQ=PEEK (KL) :GETA$ : IFA$=""ANDKQ=64THEN 
520 : rem 135 

530 IFKQ=FlORKQ=F7THENPRINTCHR$ (20) : RETUR 
N :rem 248 

540 IFA$=CHR$ (20) ANDF$ = " "THEN520 : rem 2 
550 IFA$=CHR$ (13) ANDF$< >""THENPRINTCHR$ (2 
0) : RETURN :rem 6 

560 IFA$=CHR$ (13) ANDF$=" "THEN520 : rem 6 
570 IFA$=CHR$ (20) THENPRINTCHR$ (20) A$CU$; : 



F$=LEFT$ (F$ ,LEN (F$) -1 ) :GOTO520 



TE" , "EM$" , "ET" , "ES" {BLK} " 

:GOSUBl 070: 



: rem 

1 02 


END 

: rem 

1 21 

580 

PRINTCHR$ ( 20 ) A$CU$ ; :F$=F$+A$ 

: GOTO 520 

1040 

RETURN 

: rem 

1 65 



: rem 

31 

1050 

I FE= 7 3THENPRI NT" I L DISCO 

E’ CHIUSO": 

590 

: 

: rem 

216 


GOSUBl 080: RETURN 

: rem 

28 

600 

REM ****************** 

: rem 

no 

1060 

PRINT" TOGLI L'ADESIVO DAL 

DISCO" 

: GOS 

610 

REM * CHIUDE UN FILE * 

: rem 

68 


UBI 0 8 0 : RETO RN 

: rem 

117 

620 

REM ****************** 

: rem 

1 1 2 

1070 

CLOSE2:CLOSEl 5: RETURN 

: rem 

160 

630 

; 

: rem 

21 1 

1080 

PRINT" {RVS} {GIU' }PREMI UN 

TASTO" 

: POK 

640 

PRINT" {CLR}"; 

: rem 

57 


EKB , 0 

: rem 

1 86 

650 

PRINT" CHIUDI UN FILE" : PRINTUS 


1090 

KQ = PEEK ( KL) : GETA$ : I FA$ = " " 

ANDKQ=64THE 



: rem 

37 


Ni 090 

: rem 

237 

660 

GOSUB500: IFKQ=F1 THENRETURN 

:rem 

21 7 

1100 

RETURN 

: rem 

1 62 

670 

I FKQ=F 7THENGOSU B3 7 0 : GOTO 650 

: rem 

21 7 

11 10 

: 

: rem 

253 

680 

POKE679, 1 : GOSUBl 1 60: GOSUBl 000:T=1 8 

: : S = 

1 1 20 

REM ******************************** 


1 

: rem 

252 


********** 

: rem 

140 

690 

GOSUBl 40 : SYS82 8 : A=PEEK (252) : 

IFATHEN72 

1130 

REM * MEMORIZZA NOME PER 

LINGUAGGIO 


0 

:rem 

40 


MACCHINA * 

: rem 

235 

700 

GOSUBl 60 : IFTTHEN690 

:rem 

1 53 

1 1 40 

REM ******************************** 

710 

PRINT" {GIU’ } {RED }FILE NON TROVATO 



********** 

: rem 

1 42 


{BLK} {GIU’ }" :GOTO660 

:rem 

1 28 

1 1 50 

: 

: rem 

1 


720 IF (AAND64) THENPRINTF$ : PRINT" E' GIÀ' 
CHIUSO" : GOSUBl 070 : GOSUBl 080:GOTO760 




: rem 

1 08 

730 

P = PEEK (255) : GOSUBl 40 : PRINT# 1 5 , "B-P 

";2 


; P: PRINT#2 ,CHR$ (AOR64) ; 

: rem 

32 

740 

GOSUBl 50:1 FETHEN 640 

2 rem 

136 

750 

GOSUBl 070 : PRINTFS : PRINT"E ' 

CHIUSO" 

2GO 


SUBÌ 080 

2 rem 

21 8 

760 

POKE679 , 0 : GOTO 640 

2 rem 

219 

770 

: 

2 rem 

216 

780 

REM **************** 

;rem 

35 

790 

REM * APRE UN FILE * 

2 rem 

195 

800 

REM **************** 

2 rem 

28 

810 

: 

2 rem 

211 

820 

PRINT" {CLR}"; 

;rem 

57 

830 

PRINT" APRI UN FILE" :PRINTU$ 

2 rem 

1 55 

840 

GOSUB500: IFKQ=Fl THENRETURN 

;rem 

21 7 

850 

IFKQ=F7THENGOSUB370: GOTO 830 

2 rem 

21 7 

860 

POKE679, 1 : GOSUBl 1 60 -.GOSUBl 000:T=1 8 

2S = 


1 

2 rem 

252 


870 GOSUBl 40 : SYS 82 8 : A=PEEK (252) :IFATHEN90 


970 REM * LEGGE CANALE DEGLI ERRORI DEL D 
RIVE * : rem 103 

980 REM ********************************* 
****** :rem 235 

990 : :rem 220 

1 000 CLOSE2 :CLOSEl 5 : OPENl 5,8, 1 5, "10": OPEN 
2,8,2,"#" : rem 35 

1010 INPUT# 1 5 , E , EM$ , ET , ES :rem 183 

1 020 IFE=730RE=26THENG0SUB1 070:GOTOl 050 

: rem 1 2 1 

1 030 I FETHENPR I NT" { RED } { RVS } ERRORE : " : PRIN 


1 1 60 IFLEN (F$) <1 6THENF$=F$+CHR$ (1 60) :GOTO 
1160 :rem 35 

1170 FORI=l TOLEN (F$) :POKE683+I ,ASC (MID$ (F 
$,I,1) ) :NEXT: POKE700, 0: RETURN 

:rem 240 

1180 : :rem 4 

1190 REM ************************* 

:rem 201 

1200 REM * CHIUDE L'INTERO DISCO * 

:rem 99 

1210 REM ************************* 

:rem 194 

1 220 : : rem 255 

1230 PRINT" {CLRjCHIUDI L'INTERO DISCO" : PR 
INTUS : rem 214 

1240 PRINT" {GIU’ JlNSERISCI DISCO NEL DRIV 

E { 2 SPAZI} [Fi] ESCE" : FORTD=l TO900 : N 
EXT:GOSUBl 080 :rem 203 

1250 IFKQ=Fl THENRETURN :rem 182 

1 260 GOSUBl 000:T=1 8 :S=0: GOSUBl 40: PRINT#! 5 
, "B-P 2 2" :rem 106 



0 

2 rem 

40 

1270 

PRINT# 2 ,CHR$ (66) ; :PRINT#1 5, 

"B-P 

2 16 

880 

GOSUBl 60: IFTTHEN870 

2 rem 

1 62 


6" : PRINT#2 ,CHR$ (66) ; :GOSUBl 50: IFETHE 

890 

PRINT" {GIU' } {RED }FILE NON 

TROVATO 



Ni 230 

2 rem 

1 79 


{BLK} {GIU’ }" : GOTO 840 

2 rem 

1 37 

1280 

GOSUBl 070 -.GOSUBl 000: GOSUBl 070 


900 

IF (AAND64) = .THENPRINTFSQS 

"E' GIÀ* 

APE 



2 rem 

16 


RTO" : GOSUBl 070 : GOSUBl 080: 

GOTO940 


1290 

PRINT" IL DISCO E’ ORA PROTETTO DA SC 



2 rem 

1 33 


RITTO RA" 2 GOSUBl 080 2 RETURN 

2 rem 

86 

910 

P=PEEK (255) : GOSUBl 40 : PRINT# 1 5 , "B- 

P" ; 2 

1 300 

: 

jrem 

254 


; P: PRINT #2 ,CHR$ (AANDl 35) ; 

2 rem 

129 

1 310 

REM ******************** 

;rem 

241 

920 

GOSUBl 50: IFETHEN820 

2 rem 

1 36 

1 320 

REM * CANCELLA UN FILE * 

2 rem 

244 

930 

GOSUBl 070 : PRINTF$ : PRINT" E 

' APERTO 

"2GO 

1330 

REM ******************** 

2 rem 

243 


SUBÌ 080 

2 rem 

21 8 

1 340 

• 

2 rem 

2 

940 

POKE679 , 0 : GOTO 820 

2 rem 

219 

1 350 

PRINT" {CLR}" ; 

2 rem 

104 

950 

: 

2 rem 

216 

1360 

PRINT"CANCELLA UN FILE" : PRINTUS 


960 

REM ********************************* 



2 rem 

209 


****** 

2 rem 

233 

1 370 

GOSUB500 : IFKQ=Fl THENRETURN 

2 rem 

8 
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1 380 
1390 
1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 

1490 

1 500 


IFKQ=F7THENGOSUB370:GOTOl 360 

:rem 55 

INPUT" {GIU ' }SEI SICURO" ;A$: IFA$<>"S" 
THENl 350 : rem 63 

GOSUBl 000 : PRINT#1 5 , "SO : "+F$ : INPUT# 1 5 
, E , EM$ , ET , ES : I FE> 1 THENGOSUB 1 0 2 0 : GOTO 
1350 :rem 114 

GOSUBl 070 : IFET= .THENPRINT" {RED}lL FI 
LE E' CHIUSO 0{ 2 SPAZI }NON SUL DISC 
0{BLK}" : GOSUBl 080: GOTO! 350 :rem 210 
I FET> 1 THENPRI NTET ; EM$ : GOSUBl 0 8 0 : GOTO 
1350 :rem 99 

PRINTF$ : PRI NT" CANCELLATO" : GOSUBl 080: 


GOTO! 350 


***************** 
* APRE IL DISCO 


REM 

REM * APRE IL DISCO * 
REM ***************** 


: rem 
: rem 
: rem 
:rem 
: rem 

: : rem 

PRINT" {CLR}"SPC (NS) " APRI DISCO" 
NTU$ :rem 

PRINT" {GIU ' } INSERISCI DISCO NEL 
{ 2 SPAZI }DRIVE{ 3 SPAZI} [Fi] ESCE" 


95 

3 

1 20 
50 
1 22 
7 

PRI 

44 


FORTD = l TO900 : NEXT: GOSUBl 080 : rem 202 
1510 IFKQ=Fl THENRETURN :rem 181 

1 520 GOSUBl 000 :T=1 8 : S=0 : GOSUBl 40 : rem 134 
1 530 PRI NT# 1 5 , "M-W" ; CHR$ ( 1 ) ;CHR$ (1 ) ;CHR$ ( 
1 ) ;CHR$ (65) ; :rem 141 

1540 PRINT#1 5,"B-P 2 2" : PRINTI2 ,CHR$ (65) ; 

: PRINT# 1 5 , " B- P 2 166" :rem 1 

1 550 PRI NT# 2 ,CHR$ (65) ; :GOSUBl 50: IFETHENl 4 
90 : rem 44 

1560 GOSUBl 40:GOSUB1 070: PRINT"IL DISCO E' 



APERTO" 


: rem 

172 

1570 

GOSUBl 080: 

RETURN 

: rem 

48 

1580 

: 



: rem 

8 

1590 

R EM ******************* 

: rem 

209 

1600 

REM * 

MENU 

PRINCIPALE * 

: rem 

27 

1610 

REM ******************* 

: rem 

202 

1620 

: 



: rem 

3 

1630 

PRINT" 

{CLR} {BLK} {GIU' }"SPC(NS-2 

) "«P 


ROTETTORE 

FILE>>" 

: rem 

118 

1640 

PRINT" 

{GIU 

’} 1) DIRECTORY 

: rem 

154 

1650 

PRINT" 

2) 

CHIUDI TUTTI I{ 8 

SPAZI }FI 


LE 



: rem 

143 

1660 

PRINT" 

3) 

CHIUDI UN FILE 

: rem 

81 

1670 

PRINT" 

4) 

APRI UN FILE 

: rem 

201 

1680 

PRINT" 

5) 

CHIUDI L' INTERO { 

7 SPAZI*} 


DISCO 



: rem 

r 2 

1690 

PRINT" 

6) 

APRI UN DISCO 

rei 

1700 

PRINT" 

7) 

CANCELLA UN FILE 

: réR 

l 

\ 

1710 

PRINT" 

8) 

ESCI 

: rem 

253 

1720 

PRINT" 

{ 2 

GIU'} SCELTA?" 

: rem 

1 84 

1730 

GETA$ : 

I FA$ 

!«" "THENl 730 

2 rem 

1 85 


1 740 C=VAL(A$) : I FC < 1 ORC > 8THEN 1 730 

:rem 178 

1 750 ONCGOSUB370, 220,640,820,1 230,1490,13 
50,1770 :rem 239 

1760 GOTO1630 :rem 209 

1770 CL0SE2:CL0SE15:END :rem 158 

1780 : :rem 10 

1790 REM ******************************** 
*** :rem 1 1 5 

1800 REM * VARIABILI E LINGUAGGIO MACCHIN 
A * :rem 243 

1810 REM ******************************** 
*** :rem 108 

1820 : :rem 5 


1830 POKE679 , 0 : POKEl 40,0 :CU$=CHR$ ( 31 ) +CHR 
$(161) +CHRS (144) :rem 107 

1 840 FORQZ=82 8TOl 006 : READZQ : POKEQZ , ZQ : NEX 
T: RETURN :rem 39 

1850 DATA 169,0,141,168,2,133,253,162,2,3 

2.198.255.32 :rem 51 

1860 DATA 228,255,141,169,2,32,228,255,14 

1,170,2,230,253 :rem 197 

1870 DATA 230,253,32,228,255,133,252,165, 
253,133,255,32,228 :rem 96 

1880 DATA 255,32,228,255,230,253,230,253, 
160,0,32,228,255 :rem 246 

1890 DATA 230,253,153,189,2,200,24,192,16 
, 1 4 4,242,160,243 : rem 244 

1900 DATA 32,228,255,230,253,165,144,240, 
3,141,168,2,200 :rem 183 

1910 DATA 208,241,165,252,208,7,173,168,2 
,208,22,240,191 :rem 199 

1920 DATA 165,140,240,3,32,199,3,173,167, 

2.240.3.32 :rem 196 

1930 DATA 175,3,173,168,2,240,171,32,204, 

255,96,160,0 ;r em 47 

1940 DATA 185,172,2,240,8,217,189,2,208,7 
,200,208,243 :rem 52 

1950 DATA 238,168,2,96,169,0,133,252 

:rem 250 

1960 DATA 96,160,0,185,189,2,240,6,32,210 
,255,200,208 :rem 46 

1970 DATA 245,165,252,41,64,240,10,169,14 
4,32,210,255,169,60,32,210,255, 169 

: rem 1 1 6 

1980 DATA 13,32,210,255,169,144,32,210,25 
5 ' 96 : rem 172 


^xxxxxxxxxxxxxxxxxxxxxxxy 
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di F. Colosimo 

trad. ed adatt. 

di S. Colombo 


Ecco un programma che vi aiute- 
rà nel creare effetti sonori o nel 
comporre melodie con il vostro 
VIC 20 inespanso. 


D opo aver dato il RUN al program- 
ma viene visualizzato un menu che 
permette quattro tipi di interventi: suo- 
nare usando la tastiera, ascoltare musi- 
ca o effetti sonori precedentemente ag- 
giunti al programma, generare istruzio- 
ni DATA contenenti la musica prece- 
dentemente suonata sulla tastiera, crea- 
re un file su nastro composto da istru- 
zioni DATA e da una subroutine di ge- 
nerazione dei suoni, che può facilmente 
essere aggiunta ad altri programmi. 

Se premete 1, potete immediatamente 
iniziare a suonare, utilizzando i tasti nu- 
merici: provate il “brano” in fondo al- 
l’articolo per avere un’idea degli effetti 
ottenibili. 

Premendo 3, “registrate” ciò che avete 
composto sotto forma di istruzioni DA- 
TA. 

Il programma vi chiederà il numero di 
linea che desiderate assegnare alla pri- 
ma istruzione DATA (default 1000). 
Evitate, ovviamente, numeri che siano 
già utilizzati per altre linee di program- 
ma. 

Mentre suonate le istruzioni DATA ver- 
ranno generate sullo schermo: avete a 
disposizione 95 note prima che lo scher- 
mo si riempia completamente ed il pro- 
gramma finisca la sua esecuzione. La 
pressione del tasto S fa in modo che il 
programma generi un’istruzione DATA 
finale contenente il valore 99 (che indi- 
ca al VIC 20 la fine dei dati). 

Quando le linee DATA si trovano sullo 
schermo potete muovervi con il cursore 
su ciascuna di esse e premere RETURN 
per inserirle in memoria. 

L’opzione 2 permette invece di riascol- 
tare la musica che si è precedentemen- 
te creata con queste istruzioni DATA, 
mentre l’opzione 4 permette di salvare 
i vostri capolavori sulla memoria di mas- 
sa, al fine di effettuare in seguito un 
“MERGE” in qualche altro programma. 
Dovrete dare un nome di file e specifica- 
re l’ultima linea che deve essere salva- 
ta. 

NOTA: il programma nasce per funzio- 


La procedura da seguire per il MERGE 
da nastro è la seguente (supponiamo sia 
già stato creato un file musicale su cas- 
setta): 

1. Caricare in memoria il programma 
al quale si desidera aggiungere la routi- 
ne musicale. 

2. Inserire nel registratore la cassetta 
contenente il file musicale. 

3. Digitare POKE19,l:OPENl e pre- 
mere RETURN. 

4. Quando il nastro si ferma pulire lo 
schermo con SHIFT + CLR/HOME, 
premere tre volte CRSR GIU, digitare 


nare con il registratore a cassette; per 
utilizzare il drive occorre effettuare le 
seguenti modifiche: 

610 PRINT" [CLR] INSERISCI IL D 
ISCO": INPUT" NOME FILE [7D 
ES ] 11 • A$ 

660 PRINT" [GIU’ ] (GRN)OPENl ,8, 
1 ,"CHR$ (34) ;A5;CHR$ (34) ;" 
:CMDl SLIST800-" ; A 
680 PRINT" [BLU] [4GIU' ) QUANDO 
IL DISCO SI FERMA PREMI 2 
VOLTE CRSR GIU’ SU [GRN] P 
RINT# [BLU ] E PREMI RETURN 

II 
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PRINT“ [HOME]” : POKE198.1: 

POKE631 : 13 : POKE 153,1 e premere 
RETURN. 

5. Quando il nastro si riferma digitare 
CLOSE1 e premere RETURN. 

A questo punto è avvenuto il MERGE 
con il programma correntemente in me- 
moria. 

Chi utilizza il drive può invece usare il 
programma 2. In questo caso la proce- 
dura da seguire è: 

1. Caricare e dare il RUN al programma 

2 . 

Music maker per VIC 20 

10 REM MUSIC MAKER :rem 54 

15 PRINT" {CLR } " : rem 202 

20 S2*36876:POKES2+2,15 :rem 15 

30 N$«" 21 5,1 59,163,1 75,1 83,1 91 , 1 95,201 ,20 
7,209" : rem 237 

40 FORM=0TO9 : A (M) =VAL(MID$ (N$,4*M+1 ,3) ) :N 
EXT :rem 55 

50 PRINT" {CLR}PREMI {GIU' } " : PRI NT" {RVS } 1 
{OFF} SUONI TU {GIU'}" :rem 127 

60 PRINT" {RVS}2{OFF} SUONA IL VIC{GIU'}" 

:rem 27 

70 PRINT" {RVS}3{OFF} CREA LINEE DATA 

{GIU'}" :rem 194 

80 PRINT" {RVS} 4 {OFF} SALVA BRANO {GIU'}" 

:rem 11 

85 PRINT" {RVS}5{OFF} FINE {GIU '}": rem 74 
90 GETS : ONSGOTO 1 20, 2 00, 310, 600, 110 

:rem 144 

100 GOTO 90 : rem 51 

110 END : rem 105 

120 PRINT" {CLR}"SPC (89) "TASTI DA {RVS}1 

{OFF} A {RVS}0{OFF}" :rem 215 

130 PRINTSPC (5) " {GIU' }* {RVS} S{OFF} PER S 
TOP *" :rem 90 

140 GETA$ : IFA$«" "THENl 40 :rem 77 

150 I FA$="S"THENPOKES2 , 0 : GOTO 50 :rem 117 
160 POKES2 , 0: FORA» 1 TO20: NEXT :rem 245 
170 N=VAL(A$) :POKES2,A(N) :GOTO140 

:rem 190 

200 REM SEZIONE MUSICALE :rem 230 

210 T=1 6: VALORE TEMPO :rem 19 

220 READN : IFN*99THENPRI NT" SCELTA: " tRESTOR 
E:GOTO90 :rem 244 

230 POKES2 , A (N) : READD : FORM=l TO (1 0*D*T) : NE 
XT :rem 133 

240 POKES2 , 0 : FORA=l TO20 : NEXT: GOTO 220 

:rem 251 

300 REM SEZIONE COMPOSIZIONE :rem 51 

310 INPUT"DATA LINE# 1000{ 6 SIN}";L 

:rem 195 

320 PRINT" {SU} BATTI LE NOTE ({RVS}S{OFP} 
STOP) " :X“L :rem 219 

330 GETA$ : I F A$ • " " THEN 330 :rem 79 

340 PRINT" {GRN}";L; "DATA" ;:C®0 :rem 203 

350 C=C+1 : IFC=20THENPRINT" {SIN} ":L-L+1 

:rem 106 

360 IFL=X+5THENGOTO500 trem 102 

370 IFC*20THEN340 :rem 209 

380 IFA$»"S"THENPRINT" {SIN} ":GOTO500 

: rem 8 

390 POKES 2, 0 : FORZ* 1 TO20 : NEXT: TI$ = " 000000" 
: POKES2 , A (VAL (A$ ) ) trem 244 

400 PRINTAS+","; trem 92 

410 GETASt IFA$»""THEN41 0 trem 77 

415 IFMIDS (TI$ ,5,1) <>"0"THENPRINT" 9, tGO 
TO350 : rem 144 


Ecco ora i tasti da premere per suonare 
un brano esemplificativo: 

0 8 7 6 4 

5 6 4 6 3 

7 0 8 6 4 

5 6 7 8 7 

8 9 8 7 0 

8 7 6 7 8 

6 4 6 4 3 

3 6 8 7 3 

6 8 7 8 9 

0 8 6 7 3 

6 

420 PRINTRIGHTS (STRS (INT(TI/1 2) +1 ) , 1 ) +" , " 
;tGOTO350 trem 137 

500 REM FINE COMPOSIZIONE trem 58 

510 POKES2 , 0 trem 166 

520 PRINTL+1 ; "DATA 99 { SU } { BLU } " t END 

trem 152 

600 REM SALVA FILE MUSICALE trem 100 

610 PRINT" {CLR}POSIZIONA IL NASTRO" t INPUT 
"NOME DEL FILE{ 7 DES}";A$ trem 192 
620 PRI NT" ULTIMA LINEA DATA DA{ 2 SPAZI} 
SALVARE" t INPUTA trem 86 

640 PRINT" {CLR} {GIU' } {BLUjVAI SULLA 
{ 3 SPAZI } {GRN}OPEN{BLU} E PREMI 
{ 3 SPAZI} {RVS }RETURN {OFF}" trem 68 
660 PRINT" {GIU' }{GRN}OPENl ,1,1 ,";CHR$(34) 
;A$;CHR$ (34) ;"tCMDl tLIST800-";A 

- t rem 226 

680 PRINT" {BLU }{ 4 GIU’}QUANDO IL NASTRO 
SI FERMA, VAI SU {GRN } PRI NT# { BLU } E P 
REMI {RVS} RETURN {OFF}" trem 244 

700 PRINT" {GIU' } {GRN}PRINT#1 tCLOSEl {BLU}" 
tEND trem 137 

800 REM SUBROUTINE PLAYBACK trem 211 

805 S2-36876: POKES2+2, 1 5:T=20 trem 119 
810 N$="21 5, 159, 163, 175, 183, 191 ,195,201 ,2 
07,209" trem 35 

820 FORM=0TO9t A(M) =VAL(MID$ (N$,4*M+1 ,3) ) : 

NEXT trem 109 

900 READN: IFN=99THENPOKES2 , 0 : RESTORE: RETO 
RN trem 128 

920 POKES2 , A (N) : READD :FORM=lTOD*T*l Ot NEXT 

trem 58 

940 POKES 2 , 0 : FORMAI TOl 0 t NEXT: GOTO 9 00 

trem 18 

999 REM TRE TOPOLINI CIECHI trem 141 

1000 DATA 8, 3, 7, 2, 6, 5, 8, 3, 7,1 ,7,1 ,6, 4, 0,2 

, 9, 3 , 8 , 5 , 0, 3 , 9 trem 94 

1001 DATA 2,9,1 ,8, 4, 3,1 ,6, 2, 6,1 ,5,1 ,4,1 ,5 

,1 ,6, 2, 3,1 ,3, 2, 3,1 trem 253 

1002 DATA 6, 2, 6,1 ,5,1 ,4,1 ,5,1 ,6, 2, 3,1 ,3,2 

,3,1 ,6, 2, 6,1 ,5,1 ,4,1 ,5,1 trem 22 

1003 DATA 6, 2, 3, 1,3, 2, 9, 1,8, 4, 7, 4, 6, 9 

trem 251 

1004 DATA99 :rera 81 


MERGE per disco 

100 PRINTCHRS (1 4) " {CLR} {RVS}VIC DATA MERG 

ER ipADER" trem 179 

110 PRINT" { 2 GIU' } LETTURA DATI..." 

trem 210 

1 20 F0RI=828T0939: READ A: POKEI , A:CK-CK+A: N 
EXT trem 24 


2. Caricare in memoria il programma 
al quale si desidera aggiungere la routi- 
ne musicale. 

3. Inserire nel drive il disco contenente 
il file musicale. 

4. Digitare SYS828,“nomefile”, dove 
nomefile è il nome assegnato al file mu- 
sicale. 

5. Ignorare i messaggi d’errore che pos- 
sono venire visualizzati. 

A questo punto è avvenuto il MERGE 
con il programma correntemente in me- 
moria. 
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130 IFCKOl 3998THENPRINT" {SU}ERRORE NELLE 
DATA I"; END 2 rem 213 

140 PRINT" {SU} VIC DATA MERGER 0RA":PRINT" 
IN MEMORIA 1 * : rem 67 

150 PRINT" {GIU* }£ER MERGE DI ASC { 2 U":P 

RINT n SEQUENZIALE, DIGITA" srem 116 

160 PRINT ir SYS 828,";CHR$ (34) ;CHR$ (34) ;CHR 
$ (20) " {RVS } NOMEE ILE {OFF}" ;CHR$ (34) 


; rem 

170 PRINT" (GIU* }{RVS}NOMEFILE{OFF} E' 
NOME" 2 PRINT" DEL FILE ASC { 2 l) .* 

;rem 


180 NEW srem 
828 DATA 032 , 253 , 206 , 032 , 1 58 , 20 5 2 rem 
834 DATA 032 , 1 30 r 2 1 5 , 1 66 , 034 , 1 64 s rem 
840 DATA 035,032,1 89, 255, 169, 032srem 
846 DATA 1 62 , 008 , 1 60 , 008 , 032 , 1 86 s rem 
852 DATA 255 , 032 , 1 92 , 2 55 , 1 69 , 099 s r em 
858 DATA 1 41 , 036 , 003 , 1 69 ,003 , 1 41 s rem 
864 DATA 037 , 003 , 096 , 008 , 1 38 , 072 s rem 
870 DATA 152,072,169,008,032,180srem 
876 DATA 255 , 1 69 , 1 04 , 032 , 1 50, 255 2 rem 
882 DATA 032 , 1 65 , 2 55 , 1 41 , 1 72 , 003 2 rem 
888 DATA 032 , 1 71 , 255 , 1 65 , 1 44 , 240 s rem 
894 DATA 026 , 1 69 , 032 , 032 , 1 95 , 2 55 s rem 
900 DATA 032,1 38,255,1 69 ,008 , 032; rem 
906 DATA 177,255,169,232,032,147srem 
912 DATA 255,032,174,255,169,01 3;rem 
918 DATA 141 ,172,003,173,172,003; rem 
924 DATA 201 ,01 3,240, 003,032,21 Osrem 
930 DATA 255,104,168,104,170,0402rem 
936 DATA 173,172,003,096 srem 


55 
IL 

1 80 
131 

41 

37 

50 
44 
64 

38 
49 
44 

51 

40 
51 • 

56 

41 
56 
47 
35 
13 
35 

167 
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di C. Din 
trad. ed adatt. 

di L. Priotto 




È molto stressante lavorare da 
soli e fino a tardi in questo stra- 
no laboratorio di ricerca, dove la 
temperatura è sempre sotto ze- 
ro. Quando decidete di tornarve- 
ne a casa vi accorgete però che 
dovete fare i conti con tre robot 
impazziti... 

E circa mezzanotte alla Cybernetics 
Research and Development Plant, 
conosciuta anche come M la fabbrica ge- 
lata” a causa della sua costante tempe- 
ratura di parecchi gradi sotto lo zero, 
richiesta dagli esperimenti di ricerca nel 
campo della robotica. Siete rimasti fino 
a questa tarda ora, ormai soli, per finire 
di lavorare a un progetto, ma a questo 
punto avete troppo freddo e decidete 
di rientrare a casa. Un ultimo controllo 
per assicurarsi che i generatori princi- 
pali siano spenti, ma... che cosa si sta 
muovendo nel capannone? 

Vi accorgete che quattro robot prototipi 
del tipo MK4 da combattimento sono 
ancora attivi per un difetto nei circuiti 
e vagano per il capannone alla ricerca 
di calore. Per vostra somma sfortuna 
l’unica fonte di calore del luogo siete 
voi stessi. Non potete distruggere i ro- 
bot, mentre questi possono uccidere 
voi, semplicemente con un colpetto del- 
le loro potentissime braccia di acciaio... 
Come fare? L’unico sistema per uscirne 
vivi è fare appello alla propria strate- 
gia. 

Lo scopo del gioco è infatti sopravvive- 
re il più a lungo possibile. Nel capanno- 
ne sono disposti a caso dei grossi cubi 
di ghiaccio, che rappresentano la vostra 
unica difesa: potete infatti temporanea- 
mente “congelare” un robot, gettando- 
gli contro uno di questi cubi di ghiaccio. 
Per lanciare un cubo è sufficiente cor- 


rergli contro nella direzione in cui si de- 
sidera lanciarlo. Se due cubi di ghiaccio 
si trovano in posizione adiacente e spo- 
state il primo contro il secondo, il primo 
cubo scomparirà e voi guadagnerete 10 
punti. Guadagnate invece 1000 punti 
se riuscite a “congelare” un robot. Per 
ogni quattro robot “congelati” avanzate 
di livello, ottenete in bonus un numero 


di punti pari al tempo rimanente più il 
numero di cubi rimasti e guadagnate 
una vita extra, oltre ad un nuovo quanti- 
tativo di cubi di ghiaccio. 

A livelli superiori al primo il contatore 
del tempo rimanente si decrementa tut- 
tavia in modo più rapido. Infine vengo- 
no regalati 25 punti per ogni cubo la- 
sciato nel capannone. 
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La fabbrica gelata per VIC 20 


10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

1 10 


120 
1 30 
140 

150 

160 
1 70 


180 

190 

200 

210 

220 


230 


240 


250 


260 


270 

280 

290 


HS=0 :rem 105 

EG=0:RESTORE:GOTO470 :rem 199 

POKEDD , 1 27: IF ( (PEEK (Pi ) AND 8) = . ) THEND=W 
sGOTOl 70 : rem 202 

IF ( (PEEK (Pi ) ANDl 6) = . ) THEND=-T: G = 2 : GOTO 
170 • :rem 93 

IF ( (PEEK (Pi ) AND4) = . ) THEND = - W : GOT0 1 70 

:rem 62 

I F ( (PEEK (P2) ANDl 28) = . 1 THEND=T:G= . : GOTO 
170 ' : r em 9 9 

FORA= .T03 : IFZ>E (A) THENIFPEEK (E (A) +W) =N 
THENI=W:GOTO90 :rem 8 

IFZ<E (A) THENIFPEEK (E (A) -W) =NTHENI=-W 

: rem 1 83 

I FZ >E (A) THENIFPEEK (E (A) +T) =NTHENI=T:GO 
TO110 : rem 138 

IFZ<E (A) THENIFPEEK (E (A) -T) =NTHENI=-T 

: rem 21 8 

IFPEEK (E (A) + 1 ) =NTHENPOKEE (A) ,N:E(A)=E 
(A) +1 : POKEE (A) +C,T: POKEE (A) , 5 

: rem 1 32 

IFE (A) +1 =ZTHEN240 
POKEE (A) , 4 : NEXT 
HH=HH+1 : IFHH>HTTHENHH= 

EN280 

PRINT" {HOME} {GIU' } { 10 
{SIN} " 

GOTO 30 

POKEV- 3,245: IFPEEK(Z+D) =NTHENPOKEZ , N : 
Z=Z+D: POKEZ +C,7:POKEZ,G: POKEV- 3 , . : GOT 
0210 :rem 236 

POKEV- 3, . : IFPEEK ( Z+D ) = 6 AND PEEK ( Z+D * 2 ) 
ONTHEN220 :rem 76 

IFPEEK (Z+D) =6ANDPEEK (Z+D*2) =NTHENQQ=Z 
+D: GOTO 31 0 : rem 178 

IFPEEK(Z+D) <6THEN240 : rem 151 

GOTO70 : rem 51 

FORA= .T03: POKEZ+D, 8 : POKEV-T, 1 52 : POKEZ 
, G : PCKEZ+D , 9 : POKEV-T, 1 75 : POKEZ , G+T: NE 
XT • : rem 155 

POKEZ+D, N: POKEV-T, . : S 3 S + 1 0 : PRINT" 
{HOME} {RVS}>" ;S:GOTO70 :rem 32 

FORY -.TOl 5: POKEZ, G+T: POKEV-T, 161 : POKE 
E (A) , 4 : POKEZ ,G : FORO 3 ! TO20 : NEXT: POKEE ( 
A) , 5 : rem 21 4 

NEXT: POKEV-T, . : FORY 3 . TOl 5 : POKEV , Y : POK 
EV-T, 245: FORO=1 T025: NEXT: NEXT: POKEV-T 
».• :rem 29 

SH=SH-1 : PRINT" {HOME} { 2 
{ 3 SIN} {RVS}";SH" {SIN} 

80 

GOTO 30 
POKEZ, N 

PRINT" {HOME} { 11 GIU ' } { 

{WHTjGAME OVER" : PRINT" { 


300 

310 

320 

330 


340 


:rem 201 
: rem 115 
. :H = H-1 : IFHC0TH 
:rem 86 
DES } {RVS } " ;H;" 
:rem 94 
:rem 51 


GIU* } 

" : IFSH- .THEN2 
:rem 225 
:rem 53 
:rem 157 
6 DES} {RVS} 

9 GIU' } {RVS} 


{ 3 SPAZI }PREMI {CYN } FUOCO { 5 SPAZI} 
"; :rem 222 

WAIT371 37,32, 32:GOTO20 :rem 196 

POKEV- 3,200: POKEV- 3,220: POKEQQ , N : QQ=Q 
Q+D :rem 197 

IFPEEK ( QQ ) =NTHENPOKEQQ+C , 3 : POKEQQ , 6 : G 
OTO310 : rem 8 

POKEV- 3 , . : IFPEEK (QQ) <6THENPOKEQQ+C , 3 : 
POKEQQ, 6 :S=S+1 000: PRINT" {HOME} {«VS}>" 
;S:GOTO350 :rem 114 

QQ=QQ-D : POKEQQ+C , 3 : POKEQQ, 6 : GOTO 30 

:rem 164 


350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 


FORY=240TO255 : POKEV- 2 , Y : POKEV- 2 , . : NEX 
T : rem 126 

FORA-.T09: POKEQQ+C, T: POKEQQ, 1 1 :POKEV- 
4, 2 35: POKEZ , G+T: POKEQQ , 1 0 : POKEZ ,G : POK 
EV-3,200 :rem 224 

POKEV- 4 , . : NEXT: POKEQQ , 4 : POKEV- 3 , . : EG - 
EG+1 : IFEG>3THEN390 :rem 179 

GOTO30 :rem 55 

EG= . : FORY = 1 28T0 255 : POKEV- 3 , Y : NEXT: POK 
EZ,N:FORA=.T03: POKEE (A) ,N: NEXT: Z=791 0 

:rem 246 

FORY = . T0 3 : FORO = 24 0TO2 55 : POKEV- 3,0: FOR 
A=1T020: NEXT: NEXT: NEXT: POKEV-3, . 

:rem 234 

FORY = 81 4 1 TO7702STEP- 1 : IFPEEK (Y) =6THEN 
POKEY +C , T : POKEV- 4,240:POKEY+C,3: S=S+2 
5 : rem 1 89 

POKEV- 4 , . : PRINT" {HOME } { RVS } >" ;S:H=60: 
NEXT: FORY = 1 4 0TO2 55 : POKEV- 3 , Y : NEXT: POK 
EV-3, . : POKEZ, G : rem 199 

POKEZ+C , 7 : HT=HT-T: IFHT< 1 THENHT = 1 

:rem 44 

SH=SH+T: PRINT" {HOME} { 2 GIU’} 

{ 3 SIN} {RVS}" ;SH: LV=LV+1 : PRINT" 
{HOME} {GIU' } { 3 S I N } { RVS } " ; LV 

:rem 149 

FORY = 1 TO 1 0 : B = 7 768 + 1 NT ( RND ( T) *352) :IFP 
EEK (B) =NANDB< >ZTHENPOKEB+C , 3 : POKEB , 6 

: rem 3 

NEXT: POKEV- 2,144: S=S+ (H* 1 0) : PRINT" 
{HOME} { RVS } >" ; S : POKEV- 2 , . : GOTO 30 


: rem 1 1 4 
POKE36869 , 240 : PRINT" {CLR} { 5 GIU'} 
{DES} {BLK} {RVS} LA FABBRICA GELATA!! 
{OFF}" :rem 135 

PRINT" { 3 GIU ' } { 7 DES }PUNTI : " : PRINT" 
{GIU'H 7 DES }"S: IFS>HSTHENHS=S 

:rem 190 

S=0: PRINT" { 2 GIU ' } { 5 DES }HIGH SCORE 
: " : PRINT" {GIU ' } { 7 DES}"HS :rem 115 
POKE36879 , 28 : PRINT" { 4 GIU'HRVS} 

{ 2 DES }PREMI {BLU } FUOCO PER GIOCARE" 

:rem 255 

WAIT371 37,32,0: WAIT371 37,32,32 

:rem 83 

POKE 52 ,28:POKE56,28: POKE 51 ,. :POKE55,. 

: FORX = 7424TO74 32 : POKEX , • : NEXT 

: r em 17 

FORX-71 68T07263 : READD : POKEX , D : NEXT: V* 
36878 : POKEV- 9,255: POKEV , 1 5 : T- 1 :W-22:P 
OKEV+T, 8 : rem 142 

PRINT" {CLR} { WHT } { RVS } > 0" : PRINT" 

{ 8 S I N } { RVS } L I V . { 2 SPAZI } 1 ": PRINT" 

{ 5 DES} {RVS} TEMPO: 60":C=30720 

:rem 90 

FORA=TTO50 : POKEV- 2 , 240 : B= 776 8 + 1 NT (RND 
(T) *352) : POKEB +C , 3 : POKEB , 6 : POKEV- 2 , . : 
NEXT : rem 250 

FORA 3 774 6TO 77 6 7 : POKEA , 7 : POKEA+C , 4 : NEX 
T: FORA 3 77 6 8TO 81 20STEPW : POKEA+C , 4 : POKE 
A, 7 :rem 85 

POKEA+21 , 7 : POKEA+21 +C , 4 : NEXT: FORA 3 81 2 
1T081 40: POKEA+C, 4: POKEA, 7: NEXT 

:rem 85 

FORA 3 .TOl 5 : POKEV ,A: POKEV- 4 , 225 : FORY-1 
T075:NEXT: NEXT: POKEV-4, . • :rem 173 

N = 32: Pi = 371 51 :P2 3 371 52:DD 3 371 54:Z=791 
0:H = 60:SH = 3:E( .) =7902 :E(T) *791 4:E(2) 3 
7800 : rem 226 
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600 E (3) =7998 : POKEZ+C , 7 : POKEZ , . sHT=4sLV*l 

:rem 191 

610 PRINT" {HOME} { 2 GIU'}t 4 SIN}{YEL}0 

{ WHT } { RVS } " ; SH : GOTO 3 0 :rem 178 

620 PRINT" {HOME} { 2 GIU'H 4 SIN}{YEL}0 
{ RVS } { WHT } " ; SH srem 221 

630 DATA 62, 120, 119’, 112, 28, 96, 88, 54, 62, 12 
0,127,60,112,120,48 :rem 133 

635 DATA 28,124,30,238,14,56,6,26 

srem 91 

640 DATA 108,124,30,254,60,14,30,12,56,60 
,90 srem 101 

645 DATA 36,24,60,90,36,102,60,90,36,90,6 
0,24,36,195 srem 4 

650 DATA 126,195,153,165,165,153,195,126, 
204,51 srem 23 

655 DATA 204,51,204,51,204,51,0,34,0,136, 
0,34,0 srem 230 

660 DATA 136,68,0,17,0,68,0,17,0,0,24,60, 
126,219,219,126,60,0,0,60,126,255 

srem 31 

665 DATA 153,126,60 srem 171 
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di C. Howarth 

trad. ed adatt. 

di S. Colombo 



Ecco nn gioco educativo per i più 
piccoli, che insegna a riconosce- 
re le lettere deiralfabeto. E ri- 
chiesto l’uso di un joystick. 


V iene visualizzata una griglia conte- 
nente tutte le lettere dell’alfabeto, 
tranne la Z, piazzate a caso nelle caselle 
della griglia stessa. Con il joystick il 
bambino sposta un cursore sopra la gri- 
glia, che man mano rivela le lettere na- 
scoste. Quando il bambino trova la let- 
tera da ricercare (quella che il computer 
visualizza in alto a sinistra) dovrà pre- 
mere il pulsante di fuoco per selezionar- 
la, visualizzandola in modo permanen- 
te. 

Esiste un limite di tempo per trovare 
tutte le lettere dell’alfabeto: si inizia con 
150 secondi, mentre tutti i round suc- 
cessivi avranno un limite di tempo basa- 
to su quello realizzato nel round prece- 
dente. Se si sbaglia nel selezionare una 
lettera, vengono detratti 10 secondi dal 
tempo rimanente, mentre ogni scelta 
corretta frutta 10 punti. 

Al raggiungimento dei 1500 punti le let- 
tere dovranno essere trovate in ordine 
inverso, mentre dopo i 2500 punti si 
dovranno trovare le lettere, sempre in 
ordine inverso, totalmente a memoria 
(senza cioè l’aiuto della lettera visualiz- 
zata in alto a sinistra). 

Ai 5000 punti viene calcolato il tempo 
medio realizzato per ogni round, tempo 
che viene assunto come limite per tutti 
i round seguenti, meno 5 secondi che 
vengono sottratti ad ogni 1000 punti 
ottenuti oltre i 5000. 



Alpha Anxiety 

100 IFPEEK (44) =1 8THEN1 20 srem 102 

110 SM=7735sCL=30720:Ql=81 41 : Q2=7793 s GOTO 

130 srem 233 

1 20 SM=4! 51 s CL=33792 s Ql = 4557 :Q2= 4209 

srem 224 

1 30 JC = 371 54 : J 1 = 371 51 s J 2 = 371 52 : Si = 36874 s S 
2=36876 s HS = 0 srem 157 


40 

CR$=CHR$ (19) :FORI =1 T023 :CR$=CR$+CHR$ ( 


1 7) : NEXT 

s rem 

110 

50 

POKE36878 ,1 5:POKE36879,25 

s rem 

116 

60 

FORI=l TOl 5 

s rem 

62 

70 

PRINTCHR? ( 28 ) CHR$ (1 47)LEFT$ (CR$,9)SPC 


( 8 ) " { BLU } { 3 GIU'} ALPHA" 

: rem 

248 

80 

PRINTSPC (7) " {BLU} { 2 GIU' 

} ANXIETY" 




srem 

59 

90 

FORJ = 1 TO 1 0 0 : NEXT 

s rem 

230 
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200 PRINTCHRS ( 28 ) CHR$ (147) LEFT$ (CR$,9)SPC 
( 8 ) " {BLU } { 2 GIU' } {RVSjALPHA" 

:rem 243 


210 PRINTSPC(7)"{BLU}{GIU' } {RVS } ANXIETY 

(Crii” • rom 1 



{SU}" 

s rem 

1 99 

220 

FORJ = l TOl 00 : NEXTI 

: rem 

41 

230 

DIMP% (25) , RL % ( 5 , 5 ) 

: rem 

1 1 4 

240 

GOSUBl 240 

: rem 

221 

250 

RF=0 : AT=0 

: rem 

21 6 

260 

DL= 1 50 

: rem 

251 

270 

SC=0:MA=3: POKE36879 , 28 

: rem 

228 

280 

Li = 1 : L2= 1 : LC = 1 :FL=1 :PO=SM: 

FG = 0 

: rem 

6 

290 

IFRF= 1 THENLC=25 

: rem 

1 46 

300 

PRINTCHRS (147) 

: rem 

1 4 

310 

PRINTTAB (1 0)CHR$ (144)" [<A> 

]* [<R>] 

★ 


[ <R> ] * [ <R> ) * [ <R> ] * [<S>] " 

: rem 

”191 


320 FOR 1 = 1 TO 4 : PR I NTTAB (10) "-[<+>]_ [<+>]^ 
[<+>]^[<+>]^[<+>]^" : PRINTTAB (1 0) " 
[<Q>] *+*+*+*+* [<W>] " : NEXT : rem 161 

330 PRINTTAB (1 0) "^[<+> ]-[<+>]-[<+>]-[<+> ] 

:rem 92 

340 PRINTTAB (1 0) " {<Z>] M<E>] M<E>] M<E>] 
*[<E»*[<X>]" :rem 223 

350 print"Tblu} {homeHgiu* } {DESjPROSSIMA" 
: PRINT" {DES } LETTERA: " : PRINT" {GIU' } 

{ 2 DES} [<A>]* [<S>] PRINT" { 2 DES 
PRINT" { 2 DES} [<Z>]M<X>] " 

:rem 140 


640 

TH=PO : Tl =Ll :T2=L2 

: rem 

6 

650 

IFJFTHENGOSUB790 : GOTO 720 

: rem 

21 

660 

IFJETHENPO=PO+2: Li =Ll +1 : 

FL= 1 : rem 

200 

670 

IFJSTHENPO=PO+44: L2=L2+1 

: FL=1 




: rem 

1 5 

680 

IFJWTHENPO=PO-2: Li =Ll -1 : 

FL= 1 : rem 

224 

690 

I FJNTHENPO=PO- 44 : L2=L2- 1 

: FL=1 




: rem 

1 6 

700 

IFFL=0THEN780 

: rem 

243 

710 

POKES2, 1 75 

: rem 

21 

720 

IFFG=lTHEN780 

: rem 

241 

730 

IFPO<SMORPO>SM+207THENPO 

=TH : Li =Tl 

: L2= 


T2 ‘ 

: rem 

33 


740 IFPEEK (PO+1 ) =320RPEEK (PO-1 ) =32THENPO= 
TH :Ll=Tl :L2=T2 :rem 142 

750 POKETH+CL, 0: POKETH,CS:CS=PEEK (PO) 

:rem 102 

760 POKEPO+CL, 2 : POKEPO , RL% (Li ,L2) 

:rem 242 

770 FL=0 :rem 157 

780 RETURN :rem 127 

790 IFRL% (Li ,L2) =LCTHENSC=SC+1 0 :GOTO830 

:rem 104 

800 IFRF=1 THEN91 0 :rem 246 

810 IFRL% (Li ,L2) <LCTHEN940 :rem 250 

820 GOTO 910 :rem 109 

830 POKES2 ,245: FORT=l T025 : NEXT: POKES2 , 0 

:rem 198 


360 PRINT" {GIU' } {DES} TEMPO: " : PRINT" 

{ 3 GIU 1 } {DESjPUNTI : " : PRINT" {RED } 
{GIU'H 2 DES } " ; SC : PRINT" {BLU } {GIU ' } 
{DES }MAX" : PRINT" {DES } PUNTEGGIO: " 




: rem 

1 7 

370 

PRINT" {RED} {GIU’ } { 2 DES}"; 

HS 




: rem 

1 68 

380 

IFSC<2499THENPOKEQ2+CL, 5: POKEQ2 ,LC 



:rem 

119 

390 

FORI =Ql +1 TOQ1 +43 : POKEI+CL, 4 

: NEXT 




:rem 

227 

400 

TI$=" 000000" :CS=1 02 

: rem 

1 50 

410 

GOSUB570 

: rem 

1 77 

420 

I FFG=1 THEN280 

: rem 

233 

430 

IFMA=0THEN480 

: rem 

236 

440 

POKES2 , 0 

: rem 

1 68 

450 

TL=DL- INT (TI/60 ) 

: rem 

161 

460 

PRINTLEFTS (CR$ , 1 1 ) SPC (2)TL" 

{SIN} 



{ 2 SPAZI}" 

: rem 

248 

470 

IFTL>0THEN41 0 

: rem 

252 

480 

IFSC >HSTHENHS = SC 

: rem 

55 

490 

PRINTLEFT$(CR$,18)SPC(11) "GAME OVER!" 



:rem 

1 08 

500 

POKESl , 1 85 : FORI = 1 TO300 : NEXT 

: POKESl 

,0: 


GOSUBl 240 

: rem 

99 

510 

PRINTCHRS (1 47) " { 10 GIU'}PREMI FUOCO" 



: rem 

248 

520 

PRINT" { 4 SPAZI }PER GIOCARE 

" : rem 

73 

530 

WAIT371 37,32 

: rem 

99 

540 

WAIT371 37,32,32 

: rem 

245 

550 

PRINTCHRS (1 47) : FORT= 1 TO500 : 

NEXT 




: rem 

1 69 

560 

GOTO250 

: rem 

107 

570 

POKEJC ,127: P=PEEK ( J2) ANDl 28 

: rem 

69 

580 

JE=- (P=0) 

:rem 

1 64 

590 

POKEJC , 255 : P=PEEK ( Jl ) 

: rem 

21 8 

600 

JS=- ( (PAND8) =0) 

: rem 

7 

610 

JW=- ( (PANDI 6) =0) 

:rem 

59 

620 

JN=- ( (PAND4) =0) 

:rem 

0 

630 

JF=- ( (PAND32) =0) 

: rem 

42 
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840 IFRF=lTHENPOKEQl +26- LC , LC : GOTO860 




: rem 

44 

850 

POKEQl +LC , LC 

: rem 

1 95 

860 

IFRF=1 THENLC=LC-1 :GOTO880 

: rem 

46 

870 

LC=LC + 1 

: rem 

86 

880 

IFS0 2500THEN900 

: rem 

1 46 

890 

IFLCOOTHENPOKEQ2,LC 

:rem 

5 

900 

CS=RL% (Li ,L2) : GOTO 930 

:rem 

1 82 

910 

POKESl , 250 :FORT=lTO30: NEXT: 

POKESl 

,0 



: rem 

1 87 

920 

DL=DL- 1 0 : POKE36879 , 2 5+MA: GOTOl 230 




: rem 

1 33 

930 

PRINTLEFTS (CR$ , 1 5 ) SPC ( 2 ) SC" 

{SIN} 



{ 2 SPAZI}" 

: rem 

244 

940 

IFRF=0THEN970 

: rem 

0 

950 

IFLCO0THEN1 230 

: rem 

91 

960 

GOTO 980 

: rem 

1 21 

970 

IFLC026THEN1 230 

: rem 

1 49 

980 

IFS0 5000THEN1 040 

: rem 

1 89 

990 

AT=AT+DL-TL 

: rem 

1 45 

1 000 

IFSC=5000THENDL=INT (AT/20) 

: GOTOl 090 



: rem 

1 31 

1010 

IFTL< 1 50THENDL=TL* 2+40 : GOTOl 090 




: rem 

135 

1020 

IFTL>300THENDL=TL* . 5:GOTOl 090 




: rem 

41 

1 030 

DL=TL 

: rem 

49 

1040 

IFSC=6000THENDL=DL- 5 

: rem 

219 

1050 

IFSC=7000THENDL=DL- 5 

: rem 

221 

1 060 

IFSC=8000THENDL=DL- 5 

: rem 

223 

1 070 

IFSC=9000THENDL=DL- 5 

: rem 

225 

1080 

IFSC=1 0000THENDL=DL- 5 

: rem 

1 0 

1090 

F0RI=lT03 

: rem 

62 

1 1 00 

POKES2, 225 : FORT=1 TO250 : NEXT: rem 

209 

ino 

POKES 2,0: FORT= 1 TO 2 5 : NEXT 

:rem 

57 

1120 

NEXTI 

: rem 

76 

1 1 30 

FORI = ITO 2 

:rem 

56 

1 1 40 

POKES2 ,231 :FORT=lTO250: NEXT: rem 

210 


1150 

POKES2 , 0 : FORT= 1 T025 : NEXT 

: rem 

61 

1160 

POKES 2 , 2 2 5 : FORT= 1 TO 2 5 0 : NEXT 

': rem 

21 5 

1170 

POKES2 , 0 : FORT= 1 T02 5 : NEXT 

: rem 

63 

1 1 80 

NEXTI 

: rem 

82 

1190 

POKES 2 , 240 : FORT=l TO2 50 : NEXT 

: POKES 2 , 0 



: rem 

33 

1200 

IFSOl 250THENRF = 1 

: rem 

35 

1210 

GOSUBl 240 

: rem 

1 1 

1220 

FG = 1 

: rem 

1 92 

1230 

RETURN 

:rem 

1 66 

1 240 

F0RI = lT025: P% (I ) =1 : NEXT 

: rem 

1 83 

1 250 

FORI = ITO 5 

: rem 

62 

1260 

FORJ = 1 T05 

: rem 

64 

1270 

R=INT (RND ( 1 ) *25+1) 

:rem 

232 

1 280 

I FP% (R) =0THENl 270 

: rem 

216 

1290 

RL% ( I , J ) =R 

: rem 

46 

1300 

P% (R) =0 

: rem 

73 

1310 

NEXTJ 

: rem 

78 

1320 

NEXTI 

: rem 

78 

1330 

RETURN 

: rem 

167 



SUL PROSSIMO NUMERO TROVERETE: 

- Come utilizzare al meglio il vostro C16~Plus/4: dettagliata- 
mente descritti tutti i registri dell’integrato TED e come pro- 
grammarli. 

- SuperBasic per VIC 20: un eccezionale tool che aggiunge 
tantissimi nuovi comandi BASIC 9 portando il vostro fedele VIC 
20 al livello dei potenti CBM 4032 ed 8032. 

- Il drive SFD-1001: tutto ciò che occorre sapere sul nuovo 
drive Commodore da 1 Megabyte. 

E* come sempre, tanti altri programmi di utilità e di svago per 
i vostri VIC 20 9 C16 e Plus/4 assetati di SUPER! 


Per ricevere le riviste arretrate 
di SUPERCOMMODORE con cassetta 
compilate e spedite il coupon qui sotto! 


SUPERO CI 6, PLUS/4 e VIC ZO 

CEDOLA DI ORDINAZIONE RIVISTE ARRETRATE CON CASSETTA ALLEGATA 
da compilare e spedire m busta chiusa a 
J soft - Viale Restelli 5 • 20124 Milano - Tel 6888228 

Vogliate inviarmi i numeri 

di SUPERCOMMODRE con cassetta Anno 

Al prezzo di L. 15.000 cad. 

Contanti allegati r Assegno allegato n° 


Ho spedito l’importo a mezzo vaglia postale 

Ho versato l'importo sul ccp. n° 19445204 intestato a J. soft - Milano 
Pagherò in contrassegno al postino al ricevimento 


BUONO D’ORDINE PER RIVISTE ARRETRATE 
Anche se l’ordine riguardasse la sola cassetta, questa 
verrà comunque inviata insieme alla rivista al prezzo in- 
dicato. 

Nome 

Cognome 

Via 

Città C.A.P Prov 

Se richiesta fattura: 

Cod. F. e P. Iva 

Data 

Firma 

Per i residenti all'estero - pagamento anticipato (vaglia o versamento su ns. ccp) 


V 


J 
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di P. Killick 

trad. ed adatt. 

di M. Anticoli 



Proviamo ancora una volta a sal- 
vare il pianeta Terra da una inva- 
sione extraterrestre, in questo 
gioco d'azione per VIC 20 ine- 
spanso. 


N el pianeta Zircolius hanno comple- 
tamente esaurito le materie prime 
necessarie a costruire le armi e le astro- 
navi indispensabili per conquistare la 
galassia... I suoi abitanti, avidi e cattivi, 
pensano proprio a noi: eliminare com- 
pletamente i terrestri ed estrarre così 
il loro occorrente dai nostri giacimenti. 
Il capo del pianeta Zircolius, generale 
Orrid-Zirc, ha già posto un ultimatum 
agli abitanti della terra: se non si arren- 
deranno subito, egli darà avvio alla stra- 
ge più brutale della storia della Terra... 
Sta al giocatore evitare che ciò accada, 
combattendo aspramente contro gli in- 
vasori da una base mobile posta a terra. 

I tasti che regolano il movimento della 
base terrestre sono: 

Z muove verso sinistra 
X muove verso destra 
M spara 



Gli alieni sono provvisti di una squadra 
di piccole astronavi, che vengono a volte 
lanciate dalla nave nemica: i rilevatori 
terrestri sono tuttavia in grado di accor- 
gersi di questo nuovo pericolo, segna- 
landolo alla base mobile e modificando 
il suo aspetto per il nuovo combattimen- 
to. 

A questa squadra non è tuttavia possibi- 
le sparare, e Tunica sua possibilità di 
difesa consiste nel cercare di fuggire 


dalla zona di pericolo. 

AlTinizio del gioco, per aumentare la 
difficoltà ed il divertimento, è possibile 
scegliere di rendere invisibile la base 
nemica. In questo caso Punico modo 
per identificare la sua posizione consiste 
nel seguire attentamente lo sparo del 
suo raggio laser. 


Il programma è diviso in due parti: la 
prima contiene la presentazione e una 
routine in linguaggio macchina per la 
parte successiva, mentre la seconda 
parte è il gioco vero e proprio. 

E adesso... attenti alle astronavi nemi- 
che!!! 


Programma 1 

5 POKE52,28:POKE56, 28 : POKE36879 , 8 : PRINT" 
{CLR}{GRN} M : rem 101 

10 FORI = 7 1 6 8T07679 : POKEI , PEEK (1 + 25600) : NE 

XT srem 98 

15 i=0 srem 28 


20 READ A$ s I FA$ = " * " THEN4 0 s rem 79 

30 POKE828+I f VAL ( A$ ) S 1=1+1 :GOTO20 

srem 167 

4 0 DATAI 69,2,1 41 , 1 98 , 0, 1 69, 1 31 , 1 41 , 1 1 9, 2 , 
169,13,141 ,120,2,96,* s rem 8 

50 PRINT" {HOME} { 7 GIU f > { 8 SPAZI} ALIEN" 

srem 41 
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60 PRINT" { 2 SPAZI } ATTENDERE PREGO... 

{ BLK } { SU } " : rem 

70 SYS828 :rem 


251 

8 




Programma 2 

1 REM * * ALIEN-PARTE 2 : rem 173 

2 POKE52 , 28 : POKE56 , 28 :CLR: HS=0 :rem 37 

5 RESTO RE : POKE36 87 8 , 1 5 : POKE36879 , 8 : POKE65 

0,128: POKE36869 ,255 : rem 78 

1 2 GOSUBl 000 :GOSUB2000 : PRINT" {CLR} " : FORT= 
1 TOl 000 : NEXT :rem 126 

20 DR$ = " # " : AL$ = " {CYN } & {GRN }&&{CYN}Si":X = 

0: Y=1 :Z=10:S=0:C=0:Pl=781 : P2=782 : AT=65 
520:S1=36876:F=0 :rem 108 

21 D 1 $ = " ( {GIU' } {SIN} ( {GIU' } {SIN} ( {GIU' } 

{SIN} ({GIU' } {SIN} ( {GIU’ } {SIN} ( {GIU' } 
{SIN} ( {GIU’ } {SIN} ( {GIU’ } {SIN} ( {GIU' } 
{SIN} ({GIU' } {SIN} ({GIU' } {SIN} ( {GIU' } 
{SIN} ({GIU' } {SIN} ({GIU’ } {SIN} ( {GIU' } 
{SIN} ({GIU' } {SIN} ({GIU’ } {SIN} ( {GIU’ } 
{SIN} ({GIU' } {SIN} ({GIU’ } {SIN} ({GIU' } 
{SIN} ( {GIU' } {SIN} (" : rem 9 

22 D2$ = " {GIU’HSIN} {GIU'HSIN} {GIU’} 

{SIN} {GIU' } {SIN} {GIU'HSIN} {GIU’} 
{SIN} {GIU' } {SIN} {GIU'HSIN} {GIU’} 
{SIN} {GIU'HSIN} {GIU' } {SIN} {GIU'} 
{SIN} {GIU’HSIN} {GIU'HSIN} {GIU’} 
{SIN} {GIU’HSIN} {GIU'HSIN} {GIU'} 
{SIN} {GIU' } {SIN} {GIU'HSIN} {GIU'} 
{SIN} {GIU’HSIN} " : rem 115 

25 PRINT" {HOME} "TAB(1 2) " {GRN } HI {CYN } " ; HS 

:rem 62 

30 GOSUB71 : IFRND ( 1 ) > . 97ANDX>4ANDX< 1 8THENG 
OSUB200 :rem 4 

40 IFRND ( 1 ) < . 08THENGOSUB78 :rem 73 

63 GOSUB500 : IFA$ = "M"THENGOSUBl 00 : rem 186 

69 PRINT" {HOME} {GRN} PUNTI {CYN } " ; S : GOTO 30 

: rem 4 

71 X=X+1 :POKEPl ,Y:POKEP2,X:SYSAT: PRINT" " 

;G$ :rem 14 

72 IFX=20THENPOKEPl , Y:POKEP2,X:SYSAT:PRIN 


78 

79 

80 

81 
84 
1 00 
110 

1 50 

1 60 

1 68 

1 70 
200 
210 

220 

230 

242 

300 

302 


303 

305 

306 

310 


31 5 


320 

330 

500 

501 

502 

503 

504 

505 
600 
605 


POKES1 ,250: DO=57- ( 3* (Y-l ) ) :POKEPl ,Y+1 : 
POKEP2 , X+l : rem 212 

SYSAT: PRINT" { YEL} " LEFTS (Di $ , DO) : FORT=l 
TOl 000 : NEXT :rem 101 

POKEPl , Y+l : POKEP2 , X+ 1 : SYSAT: PRINTLEFTS 
(D2$ ,DO) ; " {HOME} " : POKESl , 0 :rem 45 

IFZ=XTHENGOTO305 :rem 231 

RETURN ! rem 76 

FORA=20TOl STEP- 1 : rem 198 

POKEPl , A: POKEP2 , Z+l : SYSAT: PRINT" { WHT } 

:rem 129 

GOSUB500 : GOSUB71 : POKE36876 , 200+A 

: rem 1 1 0 

IFA=YTHENIFX=ZORX+l =XTHENS = S+INT ( 1 00/ 

28 


Y)+10:GOSUB600: RETURN :rem 

POKEPl , A: POKEP2 , Z : SYSAT: PRINT" 

{ 3 SPAZI}" : rem 6 

NEXT: POKE36876,0: RETURN : rem 196 

F=X : FORA=YTO20 :rem 106 

POKEPl , A: POKEP2 , F- 1 : SYSAT: PRINTALS 

:rem 177 

DR$ = " % " :GOSUB500 :rem 67 

I FA= 1 9THENIFPEEK (7680+1 9*22+Z+l ) =38TH 
EN300 :rem 131 

GOSUB71 : POKEPl ,A:POKEPl , F: SYSAT: PRINT 
"{ 4 SPAZI }":NEXT: RETURN :rem 159 

POKEPl , A: POKEP2 , F: SYSAT: PRINT" 

{ 4 SPAZI } {HOME} " : rem 249 

CH=768T +20*22+Z: POKECH , 36 : FORI = l 5TOOS 
TEP-1 : POKESl +2, I :FORL=200TO2 30: POKESl 
, L: NEXTL : rem 51 

POKECH+30720, INT (RND (1 ) *7) +1 :NEXT:POK 
ESI , 0 : POKECH , 32 : GOT031 0 :rem 80 

FORI = l 5TOOSTEP-1 : POKESl +2 , 1 : rem 151 

FORL= 1 50TO1 30STEP- 1 : POKESl ,L: NEXTL, I : 
POKESl, 0 :rem 88 

FORI = 1 T05: POKEPl , 1 0 : POKEP2 , 6 : SYSAT: PR 
INT" {GRN} GAME OVER" : FORT=l TO500 : NEXT 

: rem 175 

POKEPl ,10: POKEP2 , 6 : SYSAT: PRINT" 

{ 9 SPAZI }" :FORT=l TO 500: NEXTT, I 

:rem 89 

I FS>HSTHENHS=S :rem 170 

GOT05 :rem 4 

GETAS :rem 218 

Z=Z+ (A$="Z" ) - (A$="X" ) :rem 255 

IFZ<1 THENZ = 1 : rem 228 

IFZ>1 8THENZ = 1 8 : rem 87 

POKEPl , 20 : POKEP2 , Z : SYSAT: PRINT" { YEL} " 
DR$ :DR$ = " # " : rem 17 

RETURN : rem 122 

POKESl, 0 : rem 165 

FORI = l TOl 0 : POKE64 6 , INT (RND (1 ) *1 5) +1 :P 
OKEPl , Y : POKEP2 , X : SYSAT: PRINT" $$" 



T" { 3 SPAZI }":X = 0:Y=Y+1 

: rem 

31 


:rem 255 

73 

IFY=20THENY=1 :C=C+1 

: rem 

64 

61 0 

POKESl +1 , 1 70+INT (RND ( 1 ) *10) : NEXT: POKE 

74 

IFC=3THEN305 

: rem 

116 


Si +1 , 0: POKESl , 0 : rem 41 

75 

RETURN 

: rem 

76 

620 

RETURN :rem 120 
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999 STOP : rem 241 

1000 FORI = 74 32TO74 32+8*8- 1 : READA: POKEI , A: 

NEXT: RETURN trem 221 

1010 DATAO, 0,60, 255, 234, 63, 15, 3, 0,0, 60 ,25 
5,87,252,240,1 92,8,8,8,93,1 1 9,99,93, 
0 :rem 38 

1020 DATAI ,68,1 36,16,160,0,4,84 :rem 24 

1025 DATAI 29, 2 55, 1 65, 36, 60, 60, 1 26, 2 55 

:rem 84 

1030 DATAO, 1 30, 1 98, 108, 1 24, 56, 16, 1 6 

treni 225 

1035 DATA8 ,8,8,8,8,28,0,0 trem 249 

1 040 DATAI ,1 ,1 ,1 ,1 ,1 ,1 ,1 : rem 155 

2000 PRINT" {CLR} {HOME} {YEL} "TAB (8) "ALIEN" 

trem 228 

2030 PRINT" { 2 GIU' } {GRNjSINISTRA 

Z {GIU ' } DESTRA X 

{GIU' } FUOCO M" 

t rem 1 39 

2040 PRINT" {CYN}{ 2 SPAZI} PUOI SPARARE SO 
LO {GIU' } { 5 SPAZI JQUANDO HAI BASE # 
{GIU 1 } { 10 SPAZ I } E NON { 2 SPAZl}%" 

trem 13 

2050 PRINT" {GRN}{ 2 GIU '} PREMI t " t rem 143 
2055 PRINT"{GIU’ }l. .. .INVISIBILE ALIEN. 

{GIU ' } V VISIBILE ALIEN." 

trem 157 

2060 GETA$ trem 13 


2062 

IFA$=" I "THENG$=" 

{ 2 SPAZI}" tGOTO2070 



: rem 

223 

2064 

I FA$ = " V"THENG$ = " 

{PUR} ! "+CHR$ (34) 

: GOT 


02070 

: rem 

143 

2066 

GOTO2060 

: rem 

207 

2070 

RETURN 

: rem 

169 
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di K. Bergen 

trad.ed adatt. 

di $. Colombo 



Il computer è uno strumento 
estremamente utile quando oc- 
corrano calcoli ricorsivi o sofi- 
sticate operazioni numeriche. 
Esso non è tuttavia in grado, 
senza un adeguato programma, 
di eseguire ordinatamente i cal- 
coli normalmente richiesti a una 
piccola calcolatrice elettronica. 


A lcuni computer, come ad esempio 
l’Apple Macintosh, offrono all’atto 
dell’accensione alcune opzioni imme- 
diatamente disponibili, tra le quali spic- 
ca una piccola calcolatrice, che permet- 
te di compiere le più “classiche" opera- 
zioni matematiche ed algebriche. 

Dopo averla visualizzata sullo schermo 
sarà usabile tradizionalmente premen- 
do sulla tastiera del proprio computer 
i tasti corrispondenti a quelli della calco- 
latrice. Questo programma rende di- 
sponibile tale particolarità anche per il 
vostro C16 o Plus/4, dotandolo di una 
calcolatrice elettronica in grado di com- 
piere tutte le principali operazioni alge- 
briche, di operare con numeri in base 
diversa da 10, di stampare le operazioni 
svolte e con ben 8 diversi registri di me- 
moria. 

Mandando in esecuzione il programma, 
verrà visualizzata la calcolatrice, affian- 
cata dagli otto registri di memoria. Pre- 
mendo il tasto M H" si potrà ottenere una 
schermata di aiuto, elencante i vari co- 
mandi disponibili all’interno della calco- 
latrice. Essi, nell’ordine, sono: 



RETURN 
SHIFT+C 
< — 

S 

R 

@ 

L 

SHIFT+L 

H 

SHIFT+H 

SHIFT+D 


Azzera il display 

Azzera il contenuto dei registri 

Cancella l’ultimo numero digitato (backspace) 

Salva il numero visualizzato nel display all’interno di un registro 
Legge il contenuto di un registro e lo visualizza nel display 
Esegue la radice quadrata del numero visualizzato nel display 
Esegue il logaritmo in base 10 del numero visualizzato nel display 
Esegue il logaritmo naturale del numero visualizzato nel display 
Elenca i comandi disponibili 
Regola la calcolatrice su base esadecimale 
Regola la calcolatrice su base decimale 


Una delle particolarità più interessanti 
di questa calcolatrice è la possibilità di 
eseguire tutte le operazioni su numeri 
in base diversa da dieci (si noti che le 
basi superiori a 35 utilizzano caratteri 
grafici, il cui elenco è ottenibile premen- 
do H seguito da $). Modificando la base 
dei numeri si otterrà inoltre la conver- 
sione istantanea nella nuova base, sia 
del numero visualizzato nel display che 
dei numeri contenuti nei vari registri di 
memoria. I numeri esadecimali sono 
prefissati, come usuale, dal simbolo $. 
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SHIFT+B Regola la calcolatrice su una qualsiasi altra base 
! Visualizza la sequenza di calcoli effettuata ed eventualmente la 

stampa. 

# Attiva o disattiva il bip alla pressione di un tasto 


voler risolvere l’espressione: 

La sequenza di operazioni da eseguire 
sarà: 


936+3=939 

Salva 939 in registro 1 

Pulisci display 

245+35=280 

280/2=140 

140+(richiama da registrol)939=1079 

Avendo a disposizione ben otto registri 
di memoria, il cui contenuto è perma- 
nentemente controllabile sullo schermo, 
è possibile effettuare in brevissimo tem- 
po calcoli anche molto lunghi e com- 
plessi. 


Per chi non avesse esperienza d’uso del- 
le calcolatrici ricordiamo che i registri 
di memoria vengono utilizzati per me- 
morizzare temporaneamente dei risul- 
tati parziali di lunghe operazioni che 
verranno in seguito richiamati nel di- 123-45=78 
splay. Per fare un esempio, poniamo di 78*12=936 

Calcolatrice elettronica per C16 e Plus/4 


10 

Wl $ = " { HOME } { 5 GIU'H 2 DES} 

" : r em 

48 

12 

PRINT" {CLR}" tGOSUB206tGOSUBl 52tGOSUB22 


0 

: rem 

1 85 

14 

GOSUB290 

: rem 

1 28 

16 

GOSUB228 

s rem 

131 

1 8 

Z = 0 

: rem 

48 

20 

IFBAOl 0THENS$ ( Z ) =H$ t Z = Z + 3 t G0T024 




: rem 

1 71 

22 

S$(Z)=D$tZ=Z+3 

: rem 

1 80 

24 

GETA$ t IFA$ = " "THEN24 tREM SCANSIONE ' 

TAST 


I 

: rem 

53 

26 

IFF6 = OTHENVOL8 t SOUNDl , 1 000,1 

2 rem 

118 

28 

IFBAOl 0THEN258 

2 rem 

37 

30 

FORI = ITO! 5 t IFA$=MID$ (N$ ,1 , 1 ) THEN36 




2 rem 

160 

32 

NEXT 

2 rem 

164 

34 

GOTO 6 2 t REM A$ NON NUMERICO 

2 rem 

21 6 

36 

REM SOMMA A D$ 

2 rem 

1 1 5 

38 

IF (A$="-"ORA$="+" ) THEN42 

2 rem 

165 

40 

GOTO 4 4 

2 rem 

5 

42 

IF(F3O0ANDRIGHT$ (D$,l ) < >"E" 

)ORF5= 

1 THE 


N62 

2 rem 

24 

44 

IFD$=" 0"ORF4=lTHEND$=" "tFl 

ii 

o 

•• 

10 

11 

0 2 F3 


II 

o 

'TJ 

II 

o 

s 

II 

o 

2 rem 

35 

46 

F3 = l 

2 rem 

81 

48 

IFA$ = "«-"THEND$ = LEFT$ (D$,LEN(D$)-1 ) 

: Fi = 


0 t F2 = 0 t GOSUB228 t GOTO 2 4 

2 rem 

170 

50 

IFA$=" . "ANDFl =lTHEN24 

2 rem 

85 

52 

IFA$="E"ANDF2=1 THEN24 

2 rem 

1 1 1 

54 

IFA$=" . "THENFl = 1 

2 rem 

32 

56 

IFA$ = "E" THENF2= 1 : Fi = 1 

2 rem 

89 

58 

IFLEN (D$ ) < 1 5THEND$=D$+A$ 

2 rem 

2 

60 

GOSUB228 tG0T024 

2 rem 

91 

62 

M=0tFl=0tIF BAOl 0THENSS (Z) = 

H$tZ=Z+l tG 


0T066 

2 rem 

1 99 

64 

S$(Z)=D$tZ=Z+l 

2 rem 

184 

66 

DD = 0 1 FORI = 1 TOLEN (OP$ ) t IFA$=MID$ (OP$ , I , 


1 ) THEN76 

2 rem 

1 86 

68 

NEXTI t IFA$=" ! " THENZ=Z- 1 tGOTO270 




2 rem 

80 

70 

IFA$="H"THENZ=Z- 1 tGOTO302 

2 rem 

170 

72 

IFA$=" #"THENF6=- (F6=0) t IFF6= 

1 THENF7=- ( 


F7=0) 

2 rem 

84 

74 

GOTO 2 4 

2 rem 

10 

76 

F4 = l t F5= 1 tD=VAL(D$) tD$ = STR$ (D) 




2 rem 

96 

78 

ONIGOTOl 02,100,100,100,100,100,100 

,1 i.4 


,80,82,84,84,1 16,118,1 34,1 36 

,138 




2 rem 

1 35 

80 

D$ = " 0" tF3=0t F5=OtOP=Ot A=OtGOSUB228tS$ 


( Z ) “"PULISCE DISPLAY" t Z=Z+1 t 

GOTO 2 4 




t rem 

206 


82 FORI = l T08 : R ( I ) =0 : NEXT: GOSUB22 0 : FORI = l T 



OZtS$ (I) ="" tNEXTt Z = 1 t G0T024 

2 rem 

50 

84 

I FA$ = "S"THENPRINT" { HOME } " ; Wl $ 

; "SALVA I 


N?" tGOT088 

2 rem 

221 

86 

PRINT" { HOME} " ; Wl $ ; "LEGGI ?" 

2 rem 

95 

88 

GETB$t IFB$=""THEN88 

2 rem 

5 

90 

IFB$=CHR$ (13) THEN80 

2 rem 

232 

92 

J=VAL(B$) t IFJ> = 1 ANDJ< = 8THEN96 

2 rem 

1 83 

94 

GOTO 8 4 

2 rem 

18 


96 IFA$="R"THENS$ ( Z ) =" LEGGI { 2 SPAZI }#"+B 
$ : Z = Z+1 : D$=STR$ (R(J) ) :G0SUB228:G0T024 

:rem 20 

98 R ( J ) =VAL (D$):S$(Z)= "SALVA IN#"+B$tZ=Z+ 
1 :GOSUB228:GOSUB220:GOTO24 :rem 218 

1 00 GOSUBl 20:OP=I :A=VAL(D$) :S$ (Z) =A$ : Z=Z+ 
1 :G0SUB228:G0T024 :rem 11 

102 S$(Z)="= ":Z=Z+1 :0N0PG0T024, 104, 106,1 

08.108.1 10,1 1 2 : rem 155 

1 04 D$=STR$ (A+VAL (D$ ) ) : GOSUB2 2 8 : A=0 :OP=0 : 

GOTO20 :rem 9 

1 06 D$=STR$ (A- VAL (D$ ) ) :GOSUB228 : A=0 :OP=0 : 

GOTO 20 : rem 13 

108 D$=STR$ (A*VAL(D$) ) :GOSUB228 : A=0 :OP=0 : 

GOTO 20 : rem 12 

1 1 0 D$=STR$ (A/VAL (D$ ) ) : GOSUB228 : A=0 :OP=0 : 

GOTO 20 :rem 10 

1 1 2 D$=STR$ (At VAL (D$ ) ) : GOSUB22 8 : A=0 : OP=0 : 

GOTO 20 : rem 59 

114 D$=STR$ (ABS (D) T . 5) :S$ (Z) ="SQUARE ROOT 

" : Z=Z+1 :GOSUB228:GOTO20 :rem 121 

116 D$=STR$ (LOG (ABS (D) ) ) :S$ (Z) ="LN ":Z=Z+ 
1 :GOSUB228:GOTO20 treni 114 

1 1 8 D$=STR$ (LOG (ABS (D) ) /LOG (1 0) ) :S$ (Z) ="L 
OG " : Z = Z+1 :GOSUB228:GOTO20 treni 127 

120 0N0PG0T024 ,122,124,126,126,128,130,13 

2.1 32,1 32,1 32,1 32,1 32,1 32 treni 81 

1 22 D$=STR$ (A+VAL (D$) ) t F3=0 t F5=0 t RETURN 

t rem 1 2 

1 24 D$=STR$ (A- VAL (D$ ) ) t F3=0 t F5=0 t RETURN 

treni 16 

1 26 D$=STR$ (A*VAL(D$) ) t F3=0 t F5=0 t RETURN 

treni 15 

1 28 D$=STR$ (A/VAL (D$ ) ) t F3=0 t F5=0 t RETURN 

trem 22 

1 30 D$ = STR$ ( At VAL (D$ ) ) t F3=-0 t F5 = 0 t RETURN 

trem 62 

1 32 D$=STR$ (VAL (D$ ) ) t F3=0 t F5=0 t RETURN 

trem 161 

134 BA=1 6 t BA$ = " { 4 SPAZ I } " t GOTOl 4 6 

trem 47 

136 BA=1 0 t BA$ = " { 4 SPAZI }" tGOTOl 46 

trem 43 

138 PRINT" {HOME} { 5 GIU'H 2 DES} 

{ 15 SPAZI }{ 15 SIN }BASE" ; trem 152 
1 40 INPUTBAS t BA=VAL (LEFT$ (BA$,2) ) t IFBA<20 
RBA>73THENl 38 trem 240 
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142 BA$=" { 4 SPAZI }" : IFBA=1 OORBA=1 60RBA=8 



ORBA=2THENl 46 :rem 

103 

1 44 

BA$=" < " +RIGHTS (STR$ (BA) ,LEN(STR$ (BA) ) 
-1 ) +">" : IFBA< 1 0THENBA$=BA$+" " 


: rem 

1 1 8 

146 

PRINT" {HOME} { 7 GIU’jB{ 6 SPAZI}" 

BA$ 


: rem 

95 

148 

S$ (Z) ="BASE"+STR$ (BA) :Z = Z + 1 :rem 

254 

1 50 

GOSUB22 8 :GOSUB220 : A$ = " = " :GOTOl 02 



: rem 

99 


1 52 PRINT" {CLR} " ; : REM VISUALIZZA SULLO SC 
HERMO : rem 7 

154 PRINT" { 23 SPAZI }U{ 15 C}l";:rem 177 
156 PRINT"U { 17 Cj 1^ [T] B{ li SPAZljB"; 

:rem 166 

158 PRINT"B{ 2 SPAZI JCALCOLATRICE 

{ 3 SPAZ I } B { 4 SPAZI } J { 15 CjK"; 

: rem 150 

160 PRINT" B { 17 SPAZI } B { 4 SPAZI }U 

{ 15 cTr'? : rem 50 

162 PRI NT" BU { 15 CjlB [2]B{ 15 SPAZljB"; 

:rem 162 

164 PRINT" { 2 B } { 15 SPAZI }{ 2 Bj 

{ 4 SPAZI }J{ 15 C } K" ; :rem 177 

166 PRINT"BJ { T5 C}KB{ 4 SPAZI}U{ 15 C) 
I"; :rem 58 

168 PRINT"B { 17 SPAZljB [3]B{ 15 SPAZljB 

: rem 158 

170 PRINT" B { 17 SPAZI }B{ 4 SPAZI }j 

{ 15 CTK"; : rem 4 2 

172 PRINT"bT 2 SPAZI JUCIUCIUCIUCI 

{ 3 SPAZI }B{ 4 SPAZI }U{ 1 5 C) I" ; 

:rem 185 

174 PRINT"B{ 2 SPAZI}BS{ 2 B}R{ 2 B}C 

{ 2 B}NB{ 3 SPAZlTB [4]B{ 15 SPAZI } B 
"ì :rem 98 

176 PRINT"B{ 2 SPAZI } JCKJCKJCKJCK 

{ 3 SPAZI }B{ 4 SPAZI }J{ 1 5 CjK"; 

:rem 144 

178 PRINT"B{ 2 SPAZI JUCIUCIUCIUCI 

{ 3 SPAZI }B{ 4 SPAZI }U{ 15 C}I"; 

:rem 191 

180 PRINT"B{ 2 SPAZI } B 7 { 2 B) 8 { 2 B}9 

{ 2 B } VB { 3 SPAZljB [5]B{ 15 SPAZljB 

: rem 40 

182 PRINT"B{ 2 SPAZI } JCKJCKJCKJCK 

{ 3 SPAZI }B{ 4 SPAZI JJ{ 15 C}K"; 

:rem 141 

184 PRINT"B{ 2 SPAZI JUCIUCIUCIUCI 

{ 3 SPAZI }B{ 4 SPAZI JU{ 1 5 C } I" ; 

:rem 188 

186 PRINT"B{ 2 SPAZ I } B4 { 2 B}3{ 2 B)6 

{ 2 B}CB{ 3 SPAZljB £ 6] B { 15 SPAZljB 

: rem 19 

188 PRINT"B{ 2 SPAZI } JCKJCKJCKJCK 

{ 3 SPAZI }B{ 4 SPAZI J J{ 1 5 C}K"; 

:rem 147 

190 PRINT"B{ 2 SPAZI JUCIUCIUCIUCI 

{ 3 SPAZI }B{ 4 SPAZI JU{ 1 5 CJ _I" ; 

:rem 185 

192 PRINT"B { 2 SPAZI J B 1 { 2 B } 2 { 2 B}3 

{ 2 B } +B { 3 SPAZljB [ 7 J B { 15 SPAZljB 

"; :rem 32 

194 PRINT" B { 2 SPAZI } JCKJCKJCKJCK 

{ 3 SPAZI }B{ 4 SPAZI }j{ 15 CjK"; 

:rem 144 

196 PRINT" B { 2 SPAZl}U{ 3 C}l UCIUCI 
{ 3 SPAZ I } B { 4 SPAZ I }uT 15 C } I" ; 

:rem 228 


1 98 


200 


202 

204 

206 

208 

210 


212 

214 
216 
21 8 
220 

222 


224 

226 


228 

230 


232 


234 

236 

238 

240 

242 

244 

246 

248 

250 


252 

254 

256 

258 

260 

262 

264 

266 

268 

270 

272 

274 


1 1 2 


178 
40 
1 1 8 
202 


PRINT"B{ 2 SPAZljB 0 B BQ { 2 B}=B 
{ 3 SPAZljB [ 8 ] B { 15 SPAZljB"; 

: rem 

PRINT" B { 2 SPAZI }j{ 3 CjK JCKJCK 
{ 3 SPAZI }B{ 4 SPAZI }JT 15 CjK"; 

: rem 

PRINT" J{ 17 CjK"; : rem 

RETURN : rem 

REM INI ZI ALI ZZA : rem 

E$="{ 24 DES } { 15 SPAZ I J { 15 SIN}":DI 
MS$ (1000) : rem 12 

N$ = " 0 1 23456789. E+- •■" :OP$ = "= + -X*/t@"+C 
HR$ (1 3) +"CSRLLHDB" :D$=" 0" : A$=" " : BA=1 

0 :rem 11 

NN$=" . " : FORI=0TO72 : NN$=NN$+CHR$ (48+1- 
( I >9) *7) :NEXT : rem 83 

VOLO :rem 184 

REM : rem 125 

RETURN : rem 123 

I FBA< > 1 0THEN22 4 : REM STAMPA REGISTRI D 

1 MEMORIA : rem 44 

PRINT" {HOME}"; : FORI = 1 T08 : PRINT" {GIU ■ } 
"E$ ; R ( I ) ; " { G I U ' } " ; SPC ( 1 5-LEN (STR$ (R ( I 
)))) :NEXT: RETURN :rem 198 

PRINT" {HOME}"; : FORI = 1 T08 : D = R ( I ) :GOSUB 
234 :rem 100 

PRINT" {GIU' }"E$;H$; " {GIU* }" ;SPC (1 6- LE 
N (H$ ) ) :NEXT: PRINT" {HOME}" ; : RETURN 

:rem 170 

REM VISUALIZZA IL DISPLAY : rem 61 

IFBA=1 0THENPRINT" {HOME} { 5 GIU'} 

{ 2 DES } { 15 SPAZ I } { 15 S IN } "D$ ; : RETU 

RN : rem 215 

D=VAL(D$) :GOSUB234 : PRINT" {HOME} 

{ 5 GIU ' } { 2 DES } { 15 SPAZI} 

{ 15 SIN}"H$; : RETURN :rem 168 

REM CONVERTE D$ IN BASE BA (H$) 

:rem 61 

B= 1 : FORK = 1 TOl 3 : B=B*BA : I FB>DTHEN240 


:rem 38 

NEXT :H$="************** a ": RETURN 

:rem 147 

H$ = " " : I FK> 1 THENFORL= 1 TOK- 1 : D=D/BA : NE 


XT 

: rem 

76 

IFBA=1 6THENH$="$" 

: rem 

142 

I FBA= 2THENHS = " % " 

: rem 

92 

I FB A= 8THENHS = " @ " 

: rem 

1 27 

IFD<0THENH$=H$+"-" :D=ABS (D) 

: rem 

227 


FORL= 1 TOl 3^ (- (BA<1 1 ) - (BA>1 0) * 2/LOG ( BA 
) ) : D%=D : H$=H$+CHR$ (48+D%- (D%>9) * (7) ) 

:rem 58 

D=BA* (D-D% ) : IFD=0ANDL>K- 1 THENRETURN 

:rem 129 

IFL=KTHENH$=H$ + " • " : rem 223 

NEXT: RETURN : rem 24 6 

REM ROUTINE DI INPUT PER BAO10 


:rem 11 

FORI = 1 TOBA+1 : IFA$=MID$ (NN$ ,1,1) THEN26 
4 : rem 207 

NEXT : GOT062 : rem 180 

IFI = 1 THENFl =1 : GOTO 2 4 : rem 207 

IFF 1 =0THENDD = BA*DD+ 1 - 2 : D$ = STR$ (DD) : GO 
SUB22 8 : GOTO 2 4 :rem 17 

M=M+1 : DD=DD+ (I-2)/BAtM: D$=STR$ (DD) :GO 
SUB22 8 : GOTO 2 4 :rem 223 

J = 22 : PRINT" {CLR } "TAB (12)" PREMI RET. P 
ER USCIRE" : rem 57 

PRINTTAB ( 1 8) " <CURS .GIU 1 > SCANSIONE" 

:rem 145 

PRINTTAB (1 8) "<&> STAMPA { 2 SPAZI} 
{HOME}"; : rem 179 
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276 

FORI=0TO22:PRINTS$ (I) 

: rem 

27 

278 

NEXT 

: rem 

224 

280 

GETA$ : IFA$=""THEN280 

: rem 

87 

282 

IFA$=" {GIU ' } "THENJ=J+1 

: PRINTSS (J) 

: FOR 


T= 1 TO 5 0 : NEXT : GOTO 280 

: rem 

200 

284 

IFA$ = "&"THENOPEN4 , 4 : FORI=0TOZ : PRINT#4 
,S$(I) : NEXT: PRINT# 4 , :CLOSE4 :GOTO280 



: rem 

1 7 

286 

IFA$="H" THEN302 

: rem 

33 


288 GOSUBl 52 : GOSUB22 8 : GOSUB220 : GOTO 2 4 

:rem 55 

290 T$= "CALCOLATRICE BY SUPERCOMMODORE PR 
EMI { 5 SPAZI }H PER HELP" : rem 158 
292 D$ = " { 15 SPAZI}" : rem 134 

294 FORI = 1 TOLEN (T$ ) :D$=RIGHT$ (D$+MID$ (T$ , 
I / 1 ) , 1 5) : rem 24 

296 PRINT" {HOME} { 5 GIU'H 2 DES}"D$;:FOR 
T=1 TOSO : NEXTT , I :rem 228 

298 GETA$ : IFA$=""THEN298 :rem 105 

300 IFA$< >"H"THEND$ = " 0" : GOSUB22 8 : G0T026 

: rem 6 


302 

304 

306 

308 

310 

312 

314 

316 

31 8 

320 

322 

324 

326 

328 

330 

332 

334 

336 

338 

340 

342 

344 

346 

348 

350 

352 


PRINT" {CLR}{ 7 SPAZI JCOMANDI DELLA CA 
LCOLATRICE{ 2 GIU'}" :rem 222 

PRINT" + - * / T = { 4 SPAZI }OPERATORI 
CONSENTITI" : rem 105 

PRINT" { 8 SPAZI }<RTN>{ 2 SPAZI }PULISC 


E DISPLAY" 

PRINT" <SH IFT> <C>{ 4 
ISTRI " 

PRINT" { 8 SPAZI }<«->{ 
ULTIMO CARATT." 
PRINT" { 8 SPAZI } <S> { 
REGISTRO" 

PRINT" { 8 SPAZI }<R>{ 
GISTRO" 

PRINT" { 8 

U AD RATA" 

PRINT" { 8 
O BASE 10" 

PRINT" <SHIFT> <L> { 4 
NATURALE" 

PRINT" { 8 SPAZI } <H> { 
A DI HELP" 

PRINT" <SHI FT> <H> { 4 
ADECIMALE" 

PRINT" <SHIFT> <D> { 4 
CIMALE" 

PRINT" <SHI FT> <B> { 4 
TRA BASE" 

PRINT" { 8 SPAZI }<!>{ 


SPAZI }<0>{ 
SPAZI }<L>{ 


: rem 3 

SPAZI} AZZERA REG 
:rem 87 
4 SPAZI }CANCELLA 
:rem 56 
4 SPAZI }SALVA IN 
:rem 177 
4 SPAZI} LEGGE RE 
:rem 8 

4 SPAZI }RADICE Q 
:rem 32 
4 SPAZI} LOG ARITM 
:rem 93 
SPAZI } LOGARITMO 
:rem 46 
4 SPAZI }SCHERMAT 
:rem 120 
SPAZI } IMPOSTA ES 
:rem 78 
SPAZI } IMPOSTA DE 
:rem 115 
SPAZI } IMPOSTA AL 
:rem 206 
4 SPAZI }VISUALIZ 
ZA CALCOLI" : rem 11 

PRINTTAB (1 5) " (ANCHE OPZIONE STAMPA) 
{GIU ' } " : rem 162 

PRINT" {SU } { 8 SPAZ I } < # > { 4 SPAZl}SUON 
O ON/OFF{GIU' }" : rem 229 

PRINT" NOTA: BASI>35 UTILIZZANO CARATT 
.GRAFICI" : rem 153 

PRINT" PREMI <$>{ 2 SPAZI }PER LISTA C 


AR ATTERI USATI {GIU'}" 
PRINT" { 10 SPAZI }<PREMI 


36 


UN 


: rem 
TASTO >" 

: rem .141 
: rem 85 
: rem 2 


GETAS : I FA$ = " " THEN3 4 2 
IFA$="$"THEN348 
D$=" 0" :GOSUBl 52:GOSUB228:GOSUB220:GO 
T024 :rem 133 

PRINT" {CLR}"; :F0RI=lT024 :rem 31 

PRINTI ; MID$ (NN$ ,1+2,1) TAB ( 1 5) 1+24; MID 
$(NN$, 1+26,1 )TAB(30) I+48;MID$ (NN$,I+5 
0,1) :rem 21 

NEXT : GOTO 34 2 :rem 229 
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Jackson , 
naturalmente. 


I tascabili Jackson sono uno 
strumento prezioso per chi lavora 
con il computer. 

SINCLAIR SPECTRUM cod. 017H 
VIC 20 cod. Q05H 
COMMODORE 64 cod. 002H 
PC IBM cod. 018H 
APPLE Ile cod. 003H 
SHARP MZ80A cod. 014H 
LA PROGRAMMAZIONE cod. 0Q4H 
WORD STAR cod. 008H 
UNIX cod. 009H 
LOGO cod. 020H 
MS-DOS cod. 019H 
PROGRAMMI DI STATISTICA cod. 
01 5H 

CP M cod. 01 1 H 
PC-D0S cod. 012H 

OGNI TASCABILE COSTA L. 


BASIC cod. 007H 
ASSEMBLER Z80 cod. 016H 
ASSEMBLER 6502 cod. 013H 
COBOL cod. 001H 
FORTRAN 77 cod. 01QH 
PASCAL cod. 006H 
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Questo fantastico gioco per C16 
e Plus/4 assomiglia al famoso 
gioco del Simon, diffusosi alcuni 
anni or sono in Italia, destando 
scalpore. 


B otta e risposta è un simpatico gioco 
per C16 e Plus/4, che richiede mol- 
ta capacità di osservazione e di memo- 
rizzazione. 

Lo scopo principale del gioco è ripetere 
alla perfezione la sequenza di suoni pro- 
dotta dal computer. 

Il computer inizia con una nota, e ogni 
volta che ripeterete alla perfezione la 
sequenza che vi propone totalizzerete 
un punto, e i fidi 06 e Plus/4 aggiun- 
geranno una nota alla sequenza. 
Riuscirete a raggiungere il limite massi- 
mo che il computer può proporvi, e cioè 
127 note? 

Quando commettete un errore il com- 
puter ve lo segnala e vi fa rivedere la 
sequenza, dandovi un’altra possibilità. 
Se però sbaglierete nuovamente, il 
computer ve lo segnalerà e darà inizio 
ad un’altra sequenza. 

Questo videogioco ha molte caratteristi- 
che che Io rendono interessante e diver- 
tente. Infatti prevede la possibilità di 
giocare in due o da soli. 

La prima possibilità vi darà l’opportuni- 
tà di dare sfogo al vostro agonismo e di 
confrontarvi con amici e parenti in sfide 
“all’ultima nota”. 

In questo caso il computer visualizza il 
punteggio e il record raggiunti da cia- 
scun giocatore: quando uno di loro per- 
de lascia il turno all’altro e così via per 
tutto il tempo che si desidera. 

Se invece scegliete di giocare da soli, 
potrete allenarvi per raggiungere i mi- 
gliori risultati, e quando perderete il 
computer vi proporrà una nuova se- 
quenza. 

Nel caso si giochi in due il computer 
chiede i nomi dei due giocatori, che de- 
vono essere al massimo di 12 caratteri 
e non devono contenere segni di pun- 


teggiatura. 

Inoltre il computer segnala quale dei 
due giocatori deve giocare, accendendo 
il numero del giocatore di fianco al no- 
me dello stesso. 

Un’altra caratteristica di questo gioco è 
di mostrare il record raggiunto da ogni 
giocatore, fornendo un’ulteriore spinta 
a raggiungere sempre migliori risultati. 
Infine “Botta e risposta” è fornito di tre 
livelli di difficoltà, che possono dare la 
possibilità di raggiungere buoni risultati 
a tutti. 

La difficoltà 1 suona le sequenze abba- 
stanza lentamente perché anche un 


bambino possa memorizzarle, la difficol- 
tà 3 le suona piuttosto velocemente, 
dando filo da torcere anche ai giocatori 
più incalliti e infine il livello 2 è la via 
di mezzo tra gli altri due livelli. 

Per ripetere la sequenza il giocatore de- 
ve utilizzare i tasti numerici da 1 a 4 e 
premere il numero corrispondente a 
quello visualizzato a fianco del rettango- 
lino da accendere. 

E da notare la bellezza della presenta- 
zione, che sfrutta appieno le capacità 
cromatiche del CI 6 e del suo fratello 
maggiore Plus/4, dando un effetto, ose- 
rei dire, più che fantastico! 
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Botta e risposta per C16 — Plus/4 


110 R=RND ( -RND ( 0 ) ) : FORI =0TO4 : READH ( I ) : NEX 
T:S$=" U :rem 121 

1 30 VOL8:COLOR4, 1 :COLORO, 1 :W=1 :D$=" {HOME} 
{ 25 GIU’ }" :rem 43 

1 40 PRINT" {CLR } " : FORU=0TO7 : PRINT" {HOME}" ; 

:rem 15 

145 FORGH=OTOU: PRINT" {GIU’ }"; : NEXT 

:rem 69 

1 50 FORL= 1 T07 :COLORl ,L+1 ,U:PRINTSPC (L*3) " 
{RVS } {GIU ' }BOTTA E RISPOSTA" : NEXT: NEX 
T :rem 132 

160 FORM=lTOl 500:GETA$: I F A$ = " " THENNEXT 

:rem 62 

170 INPUT" {CLR} {WHT} { 3 GIU'} LIVELLO DI 
DIFFICOLTA' (1-3) " ;LV: IFLV< 1 ORLV> 3THE 
N170 :rem 233 

180 INPUT" {CLR} { 3 GIU'}1 O 2 GIOCATORI"; 

P: IFPOl ANDP02THEN1 80 :rem 108 

190 IFP=2THENINPUT" {GIU ' } NOME 1’ GIOCATO 
RE" ; Ni $ : INPUT" {GIU ' } NOME 2’ GIOCATOR 
E";N2$ :rem 33 

200 Ni $=LEFT$ (Nl$ ,1 2) :N2$=LEFT$ (N2$ , 1 2) 

:rem 50 

210 PRINT" {CLR}"SPC (1 0) " {CYN} {RVS} *BOTTA 
E RISPOSTA* { 2 GIU'} :rem 12 

220 PRINT" {RVS} {GRNjPREMI LA BARRA SPAZIA 
TRICE PER INIZIARE" :rem 136 

230 GETA$ : I FA$ < > " " THEN230 :rem 138 

240 PRINT" {SU} { 39 SPAZI }"; :COLOR4 , 1 :COLO 
R0,2 :rem 196 

250 REM COSTRUZIONE DEL CAMPO DI GIOCO 


:rem 35 


260 PRINT" {BLK } " : FORL=l T04 : PRINTSPC (15)" 

" L" { 2 GIU'}": NEXT , :rem 126 

270 PRINT" {HOME} { 3 GIU ' } [<7> }’" : FORL = l T04 
: PRINTSPC (20) "{RVS} {WHT} { 3 SPAZI} 

{ 2 GIU' } " : NEXT : rem 82 

280 PRINTSPC (1 5) " { 2 GIU ' } {BLK}PER RI PAR T 
IRE :rem 49 

290 PRINTSPC (1 5) " {GIU ' }PREMI '*':rem 237 

300 REM STAMPA NOMI E NUMERI PER I DUE Gl 
OCATORI : rem 52 

310 IFP=2THENPRINT" {HOME} { 2 GIU'} {RVS} 
{CYN } "SPC ( 1 8 ) Ni $ : PRINT" { 12 GIU'} 

{ RVS } " SPC (1 8 ) N 2$ : rem 56 

330 REM ILLUMINA IL NUMERO CORRISPONDENTE 
AD UN OPPORTUNO GIOCATORE :rem 10 

340 IFW=-1 THENPRINT" {HOME}"TAB (96) " " TAB ( 
255) TAB (255) TAB (56) "{RVS} [<7>] 2 {OFF}" 

:rem 213 

350 I FW = 1 THEN PR I NT" {HOME} "TAB (96 ) " {RVS} 
[<7> ] 1 {OFF} "TAB (2 55) TAB (2 55) TAB (56) " 

" :rem 168 

360 REM COSTITUZIONE DELLA STRINGA DI SUO 
NI CASUALE : rem 192 

370 R*INT (RND ( 1 ) * 4) +1 treni 133 


380 S$=S$+STR$ (R) treni 177 
390 GOSUB760 treni 185 
400 REM CI 6 SUONA LA SUA STRINGA MUSICALE 


treni 137 

410 FORL=2TOLEN (S$ ) STEP2 treni 239 

420 NT*VAL(MID$(S$,L,1) ) treni 68 

430 FG = 1 : GOSUB630 : FORA= 1 T075/LVt 2 : NEXT 

treni 158 

440 NEXT: GETZ$ :rem 111 

450 REM VENGONO ELIMINATI I CARATTERI SPU 
RII treni 249 


460 GETZ$: IFZ$ = ""THEN460 treni 137 

470 FORI=lT04: IFZ$=MID$ ("1 234" , I ,1 ) THENNT 
*1:1 = 10 treni 59 

480 NEXT: IFI>1 0THENFG=1 : GOSUB630 : F$=F$+ST 
R$ (NT) :GOTO51 0 treni 152 

490 IFZ$ = " *" THENRUN treni 121 

500 REM CONFRONTO TRA LA STRINGA MUSICALE 
CI 6 E QUELLA DEL GIOCATORE : rem 53 

510 I FLEN (F$ ) < >LEN (S$ ) THEN460 treni 169 

520 IFF$=S$ THEN 570 treni 15 

530 IFE=1THEN690 treni 168 

540 IFE*0THENF$=" " : E= 1 : GOSUB760 : PRINT" 

{HOME} {GIU' }"SPC(1 5) " [<7>] {RVS}RIPROV 
A! " :GOSUB740 treni 141 

550 PRINT" {HOME} {GIU' }"SPC (1 5) " 

{ 9 SPAZI } " :GOSUB750 :GETZ$ : GOTO 390 

treni 109 

560 REM PUNTEGGIO (W=-l INDICA IL SECONDO 
GIOCATORE) treni 89 

570 E=0: F$ = " " : IFW=lTHENSl=Sl + l : IFHKSlTHE 
NHl =S 1 : rem 60 

580 IFW=-1THENS2=S2+1 : IFH2<S2THENH2=S2 


treni 95 

590 IFW=1 THENPRINT" {HOME} { 2 GIU'} {PUR} 

{RVS} RECORD { 2 SPAZI }: "Hi : PRINT" {GRN} 
PUNTI : "SI " {SIN} { 2 SPAZI}" treni 159 
600 I FW=- 1 THENPRINTLEFT$ (D$,l 6) "{PUR} 

{ RVS } RECORD { 2 SPAZI }: "H2: PRINT" {GRN} 
PUNTI : "S2" {SIN} { 2 SPAZI}" treni 44 
610 GOSUB760 : GOTO 340 treni 190 

620 REM SOTTO PROGRAMMA DEGLI EFFETTI SON 
ORI :rem 1 

630 IFFGTHENPRINTLEFT$ (D$ ,NT*3+2) SPC (20) " 
{RVS} {BLU} { 3 SPAZI}" treni 15 

640 VC=VC+7: IFVC = 21 THENVC = 0 treni 162 

650 SOUND1 ,H(NT) ,10 treni 73 

660 GOSUB760 treni 1 85 

670 IFFGTHENPRINTLEFT$ (D$ , NT* 3+2) SPC (20) " 
{RVS} {WHT} { 3 SPAZI} {CYN}" treni 152 
680 RETURN treni 126 

690 FG=0:NT=0:GOSUB630:GOSUB760: PRINT" 


{HOME} {GIU' }"SPC (1 2) " [<7>) {RVSjCAMBIO 
GIOCATORE" :NT= 3 treni 217 

695 GOSUB630:GOSUB740: PRINT" {HOME} {GIU' } 



{ 39 SPAZI}" 

:rem 

65 

700 

Si =0: S2=0: S$=" " :F$="" : E=0 

:rem 

247 

710 

I FP = 2THENW=-W 

srem 

45 

720 

GOTO 340 

: rem 

1 05 

730 

REM 

:rem 

1 26 

740 

FG = 0 : NT=0 : GOSUB630 : RETURN 

:rem 

75 

750 

IFFGTHENFORM=lTO600/LVl2: 

NEXT: RETURN 



: rem 

1 82 

760 

FORM* 1 TO600/LVt 2 : NEXT: RETURN : rem 

108 

770 

DATA 596,685,739,810,854 

: rem 

1 40 
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Cercate di insegnare bene al- 
l tM intelligenza artificiale” del 
vostro serpente: si ricorderà di 
ogni aiossa che fate per conqui- 
stare la scacchiera con i vostri 
rettangoli. Un gioco di strategia, 
che ammette da uno a quattro 
giocatori. 


D opo aver dato il RUN al program- 
ma, per ognuno dei quattro serpenti 
vi sarà chiesto se è controllato da un 
giocatore oppure dal computer: le mos- 
se dei serpenti controllati dai giocatori 
vengono inserite da tastiera, mentre 
quelle dei serpenti controllati dal com- 
puter sono pseudo-casuali. 

Potete muovere il vostro serpente nelle 
quattro direzioni attraverso i tasti I, M, 
J e K; quando lo muovete da un punto 
all’altro della scacchiera esso lascia una 
traccia del suo colore. Con ogni mossa 
che effettuate il vostro serpente “impa- 
ra” la vostra strategia; per esempio, 
supponiamo che esistano tracce lascia- 
te da serpenti avversari sia a sinistra 
che in basso rispetto al vostro serpente, 
e voi muovete verso l’alto. Da questo 
momento in poi quando il vostro ser- 
pente si troverà in una situazione analo- 
ga muoverà da solo verso l’alto. 

Se il serpente incontra una configurazio- 
ne che non ha ancora “imparato”, vi 
chiederà una direzione: quella che gli 
darete verrà quindi riutilizzata dal ser- 
pente quando si troverà in circostanze 
analoghe. 

Un serpente si può intrappolare, se gli 
date istruzioni che formino un ciclo chiu- 
so con una precedente istruzione: se ad 
esempio gli dite di andare a destra, e 
andando a destra trova una configura- 
zione in cui precedentemente l’avevate 
istruito per andare a sinistra, rimarrà 
“intrappolato” da queste due istruzioni. 
Un serpente intrappolato può darsi ven- 
ga liberato, nello svolgersi del gioco, da 


un altro serpente che modifichi la confi- 
gurazione circostante. 

I rettangoli vengono conquistati com- 
piendo un percorso chiuso attraverso i 
quattro punti costituenti appunto i verti- 
ci di un rettangolo: in questo caso lo 
stesso viene colorato con il vostro colo- 
re e guadagnate un punto. 

II gioco finisce quando tutti i rettangoli 
sono colorati, oppure tutti i serpenti ri- 


sultano intrappolati; il giocatore che 
avrà colorato il maggior numero di ret- 
tangoli vince la partita. 

All’inizio non sarà facile ricordare quale 
strategia abbiamo “insegnato” al nostro 
serpente attraverso le mosse preceden- 
ti, ma con la pratica di questo gioco 
molto divertente potrete imparare a 
programmare al meglio questa piccola 
“intelligenza artificiale”. 
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Rettangoli per C16 - Plus/4 


10 POKE65301 , 0 : POKE65305 , 0 : PRINT" {WHT } " 

:rem 195 

20 DIMIN (1 5,4) : F0RA=81 9T0858 : POKEA , 32 : NEX 
T :rem 39 

30 DR(0) =-40:DR (1 )=1 : DR ( 2) = 40 : DR ( 3 ) =- 1 

:rem 235 

40 CL (1 ) =3:CL (2) =4:CL (3) =1 1 :CL (4) =9 

:rem 82 

50 P(1 ) =3408: P (2 ) =3406 :P (3) =3488: P (4) =348 
6:CO=-1024 :rem 154 

60 F0RX= 1 TO4 : P (X) =30 7 2+1 NT (RND ( 1 ) *15) *2+1 
NT ( RND ( 1 )*10)*80:NEXT : rem 66 

70 GOTO 560 :rem 59 

80 PRINT" {CLR}" ; : FORX = 1 TO 1 0 : FORY=1 TO 1 5 : PR 
INT"Q :NEXT: PRINT: PRINT: NEXT 

:rem 122 

90 GOSUB630 : PRINTTAB (22) ; " {GIU' } l{GIU’} 

{ 2 SIN} J+^K {GIU ' } { 2 SIN }M" :rem 1 
100 QF= 1 : FORPL= 1 T04 : P = P (PL) :CL=CL(PL) :Q=0 
: FL=0 : rem 79 

110 Pi =P:GOSUB380: P2=SI : LF=0 :rem 195 
120 GOSUB470:GOSUB630: PRINT" { 2 GIU'jTOCC 
A AL N."PL; :POKEl 339, CL: PRINT" 

{ 2 SPAZI }Q{WHT}" : rem 77 

130 PRINT" { 21 SPAZI}" :rem 101 

1 40 GOSUB380 :rem 1 76 

150 IN=IN (SI , PL) : IFIN=0THENGOSUB290 

:rem 205 

160 GOTO 500 : rem 101 

1 70 IFABS (IN) =lTHENPOKEP+IN,67 :GOTOl 90 

:rem 105 

180 POKEP+IN , 66 :rem 114 

190 POKEP+CO,! : POKEP+CO+IN*2 ,CL: POKEP+IN+ 
CO,CL :rem 117 

200 P (PL)=P+IN*2:GOSUB41 0 :rem 201 

210 IF (Si = 1 5 ) AND (PEEK (X+D) =32) THENPOKEX+D 
,160: POKEX+D+CO ,CL: B (PL) =B (PL) +1 

:rem 94 

220 IF (S2=l 5) AND (PEEK (X-D) =32) THENPOKEX-D 
, 1 60 : POKEX-D+CO ,CL: B (PL) =B (PL) +1 

:rem 102 

230 P=P (PL) :GOSUB520 :rem 176 

240 GOSUB380: IFP1=PANDP2=SITHENLF=1 :Q=9 

:rem 230 

250 IFQ=>9THEN270 :rem 243 

260 Q=Q+1 :GOTOl 40 :rem 219 

270 IFLF=0THENQF=0 :rem 90 

280 NEXTPL: GOTO 640 :rem 130 

290 GOSUB630: PRINT" { 3 GIU ' }DIREZIONE?" : P 
OKEP+CO ,CL: POKE239 , 0 :rem 110 

300 IFTY (PL) =2THENGOSUB340:Q=1 0: GOTO 3 30 

:rem 163 

31 0 GETA$ : IFA$< >" I "ANDA$< >"M"ANDA$< >" J" AN 
DA$<>"K"THEN31 0 :rem 149 

320 Q=10:D=(A$="J") *-3+(A$="K") *-l+(A$="M 
")*-2 :rem 183 

330 IN(SI,PL)=DR(D) : IN = IN (SI ,PL) : RETURN 

:rem 190 

340 IFSI = 1 5THEND=INT (RND ( 1 ) *4) : RETU RN 

:rem 47 

350 IFFL=>4THEND = INT (RND ( 1 ) * 4 ) : RETURN 

:rem 50 

360 D=INT (RND ( 1 )*4) : IF (SIAND2tD) =2fDTHEN3 
60 :rem 80 

370 FL=FL+1 : RETURN :rem 113 

380 SI =0 : FORX = 0TO3 : 1 = PEEK (DR (X) +P) 

:rem 80 


390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 


520 

530 

540 

550 

560 

570 

580 

590 

600 


610 

620 

630 

640 

650 

660 


670 

680 


IFI< >32THENSI =SI+2 tx :rem 10 
NEXT: RETURN :rem 237 
Si =0: S2=0:X= (P (PL) +P) /2: IFABS (X-P) =1T 
HEND=40 : GOTO430 :rem 60 
D= 1 :rem 72 
FORY=0TO3 : Z=PEEK (X+DR ( Y) +D ) : IF ( Z= 66 ) O 
R ( Z = 67 ) THENS l=Sl + 2tY :rem 46 
NEXT : rem 215 
FORY=0TO3: Z=PEEK (X+DR (Y) -D) : IFZ= (66)0 
R (Z=67) THENS 2=S2+2tY :rem 52 
NEXT: RETURN :rem 243 
GOSUB630: PRINT" { 19 SPAZI}" :rem 191 
PRINT" { 18 SPAZI}" : rem 109 
PRINT" { 18 SPAZI }" :GOTO520 :rem 120 
IFPEEK (P+IN*2) =8lTHENl 70 :rem 117 
GOSUB630: PRINT: GOSUB48 0 : GOSUB630 : PRIN 
T" {GIU ' } ERRORE MOSSA" : GOSUB290 : GOTO 1 4 
0 : rem 234 
PRINT" {HOME}" :FORX= ITO 4 :rem 57 
PRINT TAB (29) ;"GIOC."X; : POKEl 339 ,CL (X 
) :PRINT"Q{WHT}" : rem 152 
PRINTTAB ( 30) ;B(X) : NEXT :rem 80 
RETURN : rem 122 
PRINT" {CLR } { 6 GIU 1 } { RVS } [ < 1 > ] "SPC ( 1 6 
) "RETTANGOLI" :rem 211 
PRINT" { 7 GIU'H 10 SPAZI } {CYN} 1 . CON 


TROLLO GIOCATORE 
PRINT" {WHT} {GIU '} { 10 
ONTROLLO COMPUTER 
FORX=l T04 

PRINT" { YEL } { HOME } { 10 
{ 6 SPAZI }SERPENTE"X" 
{ WHT } " 


:rem 25 

SPAZI } {GRN}2. C 
: rem 1 1 
:rem 34 

GIU ' } 

(SCEGLI 1 O 2) 

: rem 131 


GETA$ : IFVAL ( A$ ) > 20RVAL ( A$ ) =0THEN61 0 

:rem 27 

TY (X) =VAL ( A$ ) : NEXT: GOTO 80 :rem 24 

PRINT" {HOME}" :FORQQ= ITO! 8 : PRI NT: NEXT: 
RETURN : rem 20 

IFQF=0THENl 00 : rem ‘237 

PRINT" {CLR} { 6 GIU' }"SPC (1 4) " {RVS} 

[<1 >]GAME OVER! { 3 GIU'}" :rem 130 

FORX=l T04 :P0KE1339,CL(X) : PRINTTAB (7) " 

{GIU’ }GIOCAT. "X; " "B (X) " RETTANGOL 

I" : rem 212 

NEXT : rem 220 

PRINT" { 3 GIU ' } "SPC ( 1 0) " {WHT } ANCORA? 


(S/N) ":POKE239,0 :rem 250 
690 GETA$ : IFA$="S"THENRUN :rem 10 
700 IFA$="N"THENPRINT" {CLR}" :END: rem 254 
710 GOTO690 :rem 1 12 
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Consigliamo di utilizzare questo 
programma, che gira su VIC 20 
con uii'espansione di almeno 3 
Kbyte, al termine di una serata 
tra amici per... farsi quattro risa- 
te. 


L idea è semplice, anche se per realiz- 
zarla c’è voluta molta fantasia e tan- 
ta pazienza. 

Si tratta di rispondere a 20 domande: 
alla fine una donna avrà trovato l’uomo 
ideale; un uomo, invece, avrà trovato il 
tipo d’uomo con cui vorrebbe identifi- 
carsi. 

Durante l’esecuzione il calcolatore ri- 
sponderà con il nome del personaggio 
che maggiormente si accorda con le ca- 
ratteristiche richieste. 

Il programma sceglie tra una rosa di 41 
candidati (variabile P nell’istruzione 
50); ad ogni nominativo è associata la 
relativa stringa delle risposte (istruzioni 
DATA dalla 800 in poi). 

I personaggi scelti, come le relative ri- 
sposte (del tutto arbitrarie), sono forniti 
come esempio: consiglio a tutti di sosti- 
tuire, variare, aggiungere nomi. Il modo 
di procedere è semplicissimo: 

1) Scegliete un gruppo di “personaggi”: 
uomini famosi, conoscenti, amici, pa- 
renti - almeno una ventina (ma più so- 
no meglio è) - e incolonnate i loro nomi 
su un foglio. 

2) Date il RUN e scrivete a fianco di 
ogni nome la risposta che associate alla 
persona; continuate cosi fino alla do- 
manda n. 20. Al termine avrete qualco- 
sa come: 

NONNA OLGA 111211231211111 
21112 

ZIO MARIO 321... 

3) Sostituite (o aggiungete o variate) le 
DATA secondo il seguente formato 

888DATANONNA OLGA, 11121123 

121111121112 


(l’ordine di redazione di queste istruzio- 
ni non ha alcuna importanza). 

4) Cambiate il valore di P nella linea 
50, in modo che corrisponda al numero 
totale dei personaggi delle vostre istru- 
zioni DATA. 

5) Salvate il programma cosi modificato 
e... giocate. 

I più volonterosi potranno togliere, va- 
riare, aggiungere domande (il numero 
delle domande è contenuto nella varia- 
bile D dell’istruzione 50), modificando 


di conseguenza le relative istruzioni ol- 
tre le DATA. 

Si può giocare in diversi modi: Tuomo 
dei miei sogni” oppure Tuomo che ho 
sposato”, per le donne; “come vorrei 
essere” oppure “come sono”, per gli uo- 
mini. 

E anche divertente giocare “al contra- 
rio”, rispondendo con le alternative me- 
no ambite, ottenendo, naturalmente, il 
nome dell’individuo meno consono alla 
propria personalità. 
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5 GOTO 50 

: rem 

21 1 

10 

R$ = " " 

: rem 

88 

1 5 

GETR$:IFR$=""THENl 5 

: rem 

1 7 

20 

RETURN 

: rem 

66 

30 

POKEC,X: PRINTCHRS (CC) " {CLR} " 

* 

</> 




: rem 

64 

32 

PRINT" {GIU' } { 16 Q}" 

: rem 

87 

34 

PRINT" {GIU'} DOMANDA N. ";N 

: rem 

66 

36 

PRINT" { GIU ' } { 16 Q}{ 2 GIU'} 

" : RETURN 



: rem 

151 

40 

INPUT" {GIU' }COSA SCEGLI ";H$ 

: rem 

205 

42 

S$=S$+H$ : RETURN 

: rem 

66 

50 

C=36879:D=20:P=41 

: rem 

63 

60 

POKEC / 1 1 0 SPRINT" {CLR} { WHT } * * 

TEST 

* * 


{ 2 GIU' }" 

2 rem 

67 

65 

PRINT"SEI DI SESSO" 

2 rem 

55 

70 

PRINT" {GIU’ } { 2 SPAZI } MASCHI LE 



{ 2 SPAZI} (M) " 

2 rem 

45 

75 

PRINT" {GIU' } { 2 SPAZI} FEMMINILE (F) 


{ 2 GIU' }" 

2 rem 

157 

80 

GOSUBl 0 : IFR$O"M"ANDR$O"F"THEN60 




2 rem 

117 

81 

IFR$ = "F"THENM$ = " { RVS } IL TUO 

UOMO 

IDEA 


LE {OFF } " : X$=R$ 

2 rem 

21 2 

82 

IFR$="M"THENM$=" {RVS} L'UOMO 

CHE AMMIR 


O {OFF } " : X$=R$ 

2 rem 

51 

85 

PRINT"SCRIVI IL TUO NOME{GIU 





2 rem 

21 9 

90 

INPUTNS 

2 rem 

107 

95 

PRINT" {CLR}OK "N$ 

2 rem 

222 

1 00 

PRINT" { 2 GIU’} "MS 

2 rem 

245 

1 1 0 

PRINT" {GIU' } RISPONDI ALLE "1 

D 2 rem 

62 

1 1 1 

PRINT" {GIU' } DOMANDE {GIU' }" 

2 rem 

126 

1 1 2 

PRINT" {GIU' } PREMI UN TASTO" 

2 rem 

33 


116 
118 
1 20 
1 22 

1 26 

1 28 


GOSUB40 :N*2 :X=1 36:CC= 
PRINT" IL SUO 


GIOCO 


* : GOSUBl 0 
s rem 

N= 1 : X=42 :CC s 5 :GOSUB30 :rem 

PRINT"DEVE ESSERE : H : rem 

PRINT" {GIU ' } 1 -PRUDENTE" : rem 

PRINT" {GIU ' } 2- INTRAPRENDENTE 

: rem 

•1 44 : GOSUB30 
2 rem 

PREFERITO" 

2 rem 

1 - POKER" 2 rem 

2 - SCACCHI" 2 rem 

3 - TOMBOLA" ; rem 

4- BOCCE" 2 rem 

5 - CORSA NEI SACCHI " 

2 rem 

138 GOSUB4 0 2 N* 3 2 X» 74 2CC=5 2 GOSUB30 

2 rem 

140 PRINT"FIS IC AMENTE LO VEDI" 2 rem 
142 PRINT" {GIU' } 1 - IN CARNE., 1 
144 PRINT" { GIU 1 } 2-SMAGRITO" 

146 GOSUB40 2N 3 4 2X*30 2CC*31 2G< 


1 30 PRINT" {GIU* } 
132 PRINT" {GIU 1 } 
134 PRINT" {GIU'} 

1 36 PRINT" { GIU 1 } 

1 37 PRINT" {GIU 1 } 


rem 
rem 

GOSUB30 

2 rem 

148 PRINT" IL SUO SPORT PREFERITO E'" 

2 rem 
2 rem 
2 rem 
2 rem 
2 rem 
2 rem 

1 44 2 GOSUB30 
2 rem 

PRINT"LO PREFERISCI" 2 rem 

PRINT" {GIU'} 1 -ROMANTICO 2 rem 

166 PRINT" {GIU'} 2-UMORISTA 2 rem 


1 50 
1 52 
1 54 
1 56 
1 58 
160 

1 62 
164 


PRINT" {GIU 1 } 1 -ATLETICA" 
PRINT" 2-PESCA" 

PRINT" 3-GOLF" 

PRINT" 4-SCI " 

PRINT" 5- BALLO" 

GOSUB4 0 : N*5 : X* 59 :CC* 


21 2 
21 6 
144 

58 

21 5 

144 

25 

85 

197 

232 

57 

222 

1 

81 

97 

64 

40 

174 

29 

52 

243 

173 

59 

101 

241 

101 

48 


1 68 

PRINT" {GIU' } 

3 -PROFON DO 

: rem 

38 

1 70 

PRINT" {GIU' } 

4 -SPORTIVO" 

: rem 

97 

1 71 

PRINT" {GIU' } 

5-IDEALISTA" 

: rem 

109 

1 72 

GOSUB40 :N=6 : 

X=93 :CC=5 :GOSUB30 





: rem 

3 

1 74 

PRINT" I L SUO 

AMBIENTE E"' 

: rem 

170 

1 76 

PRINT" {GIU ' } 

1 -LA MONTAGNA" 

: rem 

192 

1 >7 

PRINT" 2-UNA 

REGGIA" 

: rem 

98 

1 78 

PRINT" 3-IL 

PALCOSCENICO" 

: rem 

21 7 

1 80 

PRINT" 4-UN ' 

OASI" 

: rem 

193 

1 81 

PRINT" 5-UNO 

STUDIO" 

: rem 

151 

1 82 

PRINT" 6- . . 

IN VIAGGIO" 

: rem 

200 

1 84 

GOSU340:N=7 : 

X=2 38 :CC=1 56:GOSUB30 





: rem 

1 59 

1 86 

PRINT "VORREI 

CHE FOSSE 

: rem 

117 

1 88 

PRINT" {GIU' } 

1 -SPONTANEO" 

: rem 

1 52 

1 90. 

PRI NT" { GIU ’ } 

2-RAZIONALE" 

: rem 

128 

1 94 

GOSUB40:N=8 : 

X=26 :CC = 2 8 SGOSUB30 





: rem 

58 

1 96 

PRINT" QUANDO 

PARLA 

: rem 

135 

1 98 

PRINT" {GIU’ } 

1 -TI FA DOMANDE 

1: rem 

220 

200 

PRINT" {GIU* } 

2 -RACCONTA ANEDDOTI 





: rem 

68 

202 

PRINT" {GIU' } 

3-FA PROGETTI 

: rem 

169 

204 

PRI NT" {GIU ' } 

4-ESPONE LE SUE 

: IDEE 





: rem 

22 

20b 

GOSUB40 :N=9 : 

X=1 75 :CC=1 44 :GOSUB30 





: rem 

153 

208 

PRI NT" PREFERISCE UN LIBRO:" 

: rem 

168 

209 

PRINT" {GIU ' } 

1 -CLASSICO" 

: rem 

44 

210 

PRINT" { GIU ’ } 

2- AVVENTUROSO" 

: rem 

64 

21 2 

PRINT" {GIU' } 

3-D ' ATTUALITÀ ' " 

: rem 

18 

21 4 

PRINT" {GIU' } 

4-D ' EVAS IONE" 

: rem 

159 

21 5 

PRINT" {GIU' } 

5-DIDATTICO" 

: rem 

113 

21 6 

GOSUB40 :N=1 0 

: X=1 27 :CC=1 44 :GOSUB30 





: rem 

191 

21 8 

PRINT"AL SUPERMARKET COMPRA 

: rem 

236 

220 

PRINT" {GIU' } 

1 -UN VESTITO 

: rem 

131 

222 

PRINT" {GIU’ } 

2 * GENERI ALIMENTARI 





: rem 

85 

224 

PRINT" {GIU' } 

3 -UN OGGETTO BIZZARRO 




2 rem 

231 

226 

PRINT" {GIU' } 

4-UN LIBRO 

2 rem 

21 4 

228 

GOSUB40 :N=1 1 

:X“1 5:CC*1 58:GOSUB30 





2 rem 

148 

230 

PRINT"E ' TENDENZIALMENTE 

2 rem 

23 

232 

PRINT" {GIU ' } 

1 -CONSERVATORE 

2 rem 

80 

234 

PRINT" {GIU' } 

2* RI FORMI STA 

2 rem 

184 

236 

GOSUB40 :N“1 2 

:X*1 07:CC-1 59:GOSUB30 





2 rem 

199 

238 

PRI NT "SOPRATTUTTO DEVE SAPER” 





2 rem 

134 

240 

PRINT" {GIU' } 

1 -COMBATTERE" 

2 rem 

188 

241 

PRINT" {GIU' } 

2- PARLARE" 

2 rem 

223 

242 

PRINT" {GIU ' } 

3-CREARE" 

2 rem 

140 

243 

PRINT" {GIU' } 

4-FAR BUONA" 

2 rem 

42 

244 

PRINT" { 3 SPAZI} IMPRESSIONE" 

2 rem 

185 

245 

GOSUB40 :N“1 3 

:X-202:CC»28:GOSUB30 





2 rem 

143 

246 

PRINT" IL SUO 

BALLO E ' : " 

2 rem 

9 

248 

PRINT" { GIU ' } 

1 -SHAKE" 

2 rem 

74 

249 

PRINT" {GIU' } 

2 -LENTO" 

2 rem 

98 

2 50 

PRINT" {GIU' } 

3*MAZURKA" 

: rem 

244 

251 

PRINT" {GIU' } 

4 -VALZER" 

: rem 

175 

252 

PRINT" { GIU ' } 

5-TANGO" 

2 rem 

86 

254 

GOSUB40:N=1 4 

:X»25:CC«1 56:GOSUB30 





:rem 

149 

256 

PRI NT" PREFERISCE BERE" 

2 rem 

116 

258 

PRINT" {GIU' } 

1 -COCA COLA" 

2 rem 

20 

260 

PRINT"{GIU' } 

2-CHAMPAGNE" 

2 rem 

93 

261 

PRINT" {GIU' } 

3 -BAROLO" 

: rem 

154 

262 

PRINT" {GIU' } 

4-FRAPPE"' 

: rem 

1 94 
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264 GOSUB40 :N=1 5:X=1 90sCC=31 :GOSUB30 

:rem 146 

266 PRINT"CON LEI E’:" : rem 207 

268 PRINT" {GIU* }1 -FOCOSO," : rem 213 

269 PRINT" { 2 SPAZI }MA TRADIZIONALE" 

: rem 134 

270 PRINT"{GIU' J2-MODERATO" : rem 53 

272 PRINT" {GIU ' }3-FANTASISTA. . . :rem 51 

274 GOSUB40:N=1 6:X=25:CC=31 :GOSUB30 

:rem 97 

276 PRINT "VESTE : " : rem 49 

278 PRINT" {GIU'} 1 -ELEGANTE" : rem 38 

280 PRINT" {GIU'} 2-CASUAL" : rem 148 

286 GOSUB4 0 :N=1 7:X*76:CC=5: GOSUB30 

: rem 60 

288 PRINT" IN COMPAGNIA E' : rem 227 

290 PRINT" {GIU ' } 1 -CHI ACCHIERONE : rem 94 
292 PRINT" {GIU'} 2 -RISERVATO : rem 123 
294 GOSUB4 0 :N= 1 8 : X=4 6 :CC=5 :GOSUB30 

:rem 57 

296 PRINT"E ' AFFASCINANTE PER" : rem 40 

298 PRINT" {GIU' } 1-IL BEL SORRISO" 

: rem 124 

299 PRINT" {GIU ' } 2-L'ASPETTO SIGNORILE" 

:rem 36 

300 PRINT" {GIU'} 3-IL FISICO PRESTANTE" 




: rem 

221 

301 

PRINT" {GIU ' } 4 -LO SGUARDO" 

: rem 

135 

302 

PRINT" { 3 SPAZI JCOMUNICATIVO" 




: rem 

247 

303 

GOSUB4 0sN = l 9sX=90 sCC= 1 44 sGOSUB30 




: rem 

148 

304 

PRINT" LA SUA MATERIA" 

: rem 

225 

305 

PRINT"DI STUDIO E’" 

: rem 

58 

306 

PRINT" {GIU ' } 1 -FILOSOF IA" 

s rem 

117 

307 

PRINT" {GIU' } 2-SCIENZE" 

: rem 

236 

308 

PRINT" {GIU' } 3-ECONOMIA" 

: rem 

40 

309 

PRINT" {GIU ' } 4 -LETTE RE" 

: rem 

244 

310 

PRINT" {GIU ’ } 5 -BELLE ARTI" 

: rem 

108 

31 4 

GOSUB4 0 sN=20 s X*76 sCC=5 SGOSUB30 




: rem 

46 

31 6 

PRINT"LO VEDI SOPRATTUTTO 

: rem 

133 

31 8 

PRINT" {GIU'} 1 -FORTE E SICURO 




: rem 

84 

320 

PRINT" {GIU'} 2- INTELLIGENTE 

: rem 

56 

322 

PRINT" {GIU ' } 3 -BELLO 

: rem 

37 

324 

PRINT" {GIU ' } 4-SENS IBILE 

: rem 

88 

326 

PRINT" {GIU' } 5 -BUONO 

: rem 

64 

328 

GOSUB40 

: rem 

129 

510 

FORK=l TOP 

: rem 

41 

51 2 

READNP8 , SP$ 

: rem 

105 

51 4 

W=0 

: rem 

94 

51 6 

FORI = 1 TOD 

: rem 

33 

520 

IFMIDS (SP$, I, 1) =MID$ (S$, I, 1 ) THENW 

= W+1 



: rem 

89 

522 

NEXT 

: rem 

21 6 

524 

IFW>MXTHENMX=Ws I$=NP$ 

: rem 

114 

526 

NEXT 

: rem 

220 

528 

POKEC ,42 SPRINT" {CLR} { WHT } " 

: rem 

70 

529 

IFX$ = "M"THEN54 0 

: rem 

65 

530 

PRINT"CARA "NS"," 

s rem 

98 

532 

PRINT'MGIU' }HO TROVATO L'UOMO 




2 rem 

21 1 

534 

PRINT" {GIU’ }DEI TUOI SOGNI 

1 1 




2 rem 

49 

536 

PRINT" {GIU' } IL SUO NOME E' 

s " s GOTO550 


2 rem 

238 

540 

PRINT"CARO "N$ " , " 

2 rem 

1 1 3 

542 

PRINT" {GIU' } IL PERSONAGGIO 

CON 




2 rem 

14 

544 

PRINT"{GIU’ }CUI MAGGIORMENTE TI 




2 rem 

90 


546 PRINT"{GIU' } IDENTIFICHI E’ 

: rem 71 

550 PRINT" { 2 GIU’ }":L=LEN(I$) : rem 237 

555 FORT=l TOL+4 SPRINT"*"; sNEXT SPRINT 

srem 70 

560 PRINT" {GIU ’ } * "I$" * { GIU ' } " s rem 147 
565 FORT=l TOL+4 SPRINT"*"; sNEXT SPRINT 

; rem 71 

570 PRINT" { 3 GIU ' } PER GIOCARE ANCORA" 

s rem 53 

575 PRINT" {GIU' } PREMI UN TASTO" s rem 46 
580 GOSUBlOsRUN s rem 173 

800 DATACASSIUS CLAY , 251 1 43 1 42 32 1 1 1 1 2 1 31 1 

s rem 10 

802 DATAPIPPO BAUDO, 1 3231 321 31 1 42221 1 243 

srem 189 

804 DATAMIKE BONGIORNO, 1 32 4 4 1 1 1 4 1 1 422 2 1 1 2 
31 s rem 1 58 

806 DATASANDRO PERTIN I , 242 2 51 1 4 1 42 1 332 1 1 1 
45 srem 183 

808 DATAPAPA WOJTYLA, 1 21 451 241 41 42421 1 41 5 

s rem 36 

810 DATAROBERTO GERVASO, 22222 32 1 34 1 2222 1 1 
242 srem 253 

812 DATAMAURI Z IO COSTANZO, 21 1 23321 341 2232 
1 1 442 s rem 1 74 

814 DATARONALD REAGAN, 1 1 23422 32 1 1 1 4 1 2 1 1 2 3 

1 s rem 55 

81 6 DATAGANDHI , 21 22 54 243421 2422241 5 

srem 134 

820 DATACLAUDIO VILLA, 2 3 1 51 31 24 3 1 1 53 111 1 5 
1 srem 70 

822 DATADANTE ALIGHI ERI , 22 22 551 4 1 42 32 31 1 1 
442 srem 207 

826 DATAJULIO IGLESIAS, 1 1 231 31 341 1 4521 1 1 3 
53 s rem 168 

828 DATACARLO D ' INGH I LTERRA , 1 22 31 21 331 1 4 4 
21 1 2234 srem 232. 

830 DATABENITO MUSSOLINI , 21 1 1 531 41 41 1 431 1 
1331 srem 79 

832' DATAALBERT EINSTEIN , 2222 352 4 54 2 32 4222 
422 srem 244 

834 DATAP INOCCHIO, 2522261 223231 1321114 

s rem 111 

836 DATADE SADE, 21 21 221 343235231 2351 

srem 125 

840 DATABETTINO CRAXI , 1 1 1 25524341 22321 1 23 
1 srem 92 

842 DATARENATO ZERO , 21 2 51 31 2 4 3 2 31 2 32 1 1 54 

s rem 221 

844 DATAMARCO PANNELLA, 21 2 1 53 1 43 32 1 1 4 32 1 2 
1 1 s rem 1 42 

846 DATAADRIANO CELENTANO , 2 32 52 31 24 3 1 31 1 3 
21 355 s rem 1 1 5 

848 DATAALBERTO SORDI , 1 4 1 52 31 241 1 4 531 1 1 1 5 
4 srem 102 

850 DATAROBIN HOOD , 2 52 1 56 1 32 32 1 1 1 322 31 5 

srem 122 

852 DATAP I ERO ANGELA, 1 222352454222421 1 1 22 

srem 253 

854 DATAGIANNI AGNELLI , 1 1 231 22331 1 44221 22 
31 srem 130 

856 DATAMASS IMO BOLDI , 231 52 31 2 43221 1 32 1 1 5 
4 srem 92 

858 DATAGESU ' CRISTO, 1 4225424522323221 41 5 

srem 18 

860 DATARENZO ARBORE , 21 253322 3322 1 2 32 1 1 52 

srem 28 

862 DATABEETHOVEN, 22251 51 31 423441 1 2254 

srem 124 

864 DATARODOLFO VALENTINO, 21 2 51 4 1 32 1 1 4 52 1 
11353 srem 157 
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Ecco finalmente un programma 
che permette di ridefinire con 
facilità i caratteri del C16 e del 
fratello maggiore Plus/4. E ri- 
chiesto l’utilizzo del joystick. 

U na delle parti più noiose nella pro- 
gettazione e nella programmazione 
di un gioco che utilizza i caratteri pro- 
grammabili è la fase di disegno dei ca- 
ratteri stessi, con i conseguenti calcoli 
da binario a decimale e viceversa. 
Questo problema è stato ormai risolto 
per i computer C64 e VIC 20, mentre 
per il C16 e il Plus/4 la questione è 
ancora aperta. 

Questo programma sarà la gioia di mol- 
ti programmatori di C 16 e Plus/4, per- 
ché permette di ridefinire con facilità e 
velocità un set di caratteri compieta- 
mente nuovo, grazie alla semplicità di 
funzionamento delle opzioni disponibi- 
li. 

Prima di parlare del programma pre- 
sentato è meglio conoscere più da vici- 
no il modo con cui rendere visibili dei 
caratteri programmabili sullo schermo, 
e il modo in cui programmarli. 

Trasferire il set dalla ROM alla 
RAM 

Per utilizzare i caratteri programmabili 
sul C16 e il Plus/4 è necessario, in pri- 
mo luogo, trasferire il set originale dei 
caratteri Commodore dalla memoria 
ROM alla memoria RAM, nella quale 
possono essere manipolati. 

Per fare ciò esistono due sistemi. 

Il primo è quello utilizzato dal program- 
ma presentato e consiste nel copiare, 
tramite una istruzione FOR/NEXT, i 
byte contenenti i dati della forma dei 
caratteri originali. 

Questi byte partono dall’indirizzo 
53248 e proseguono per 8 Kbyte, con- 
tenendo i dati dei seguenti set: 

Blocco # 1 Maius. /Grafici 2 Kbyte 
Blocco #2 Maius. /Grafici Rev. 2 Kbyte 
Blocco #3 Maius. /Minus. 2 Kbyte 

Blocco #4 Maius. /Minus. Rev. 2 Kbyte 

Set completo 8 Kbyte 

Da ciò si ricava che il set completo occu- 
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pa 8 Kbyte di memoria (!). Per fare in 
modo che il set copiato in RAM occupi 
la memoria RAM più alta (cioè finisca 
dove termina anche la memoria RAM) 
è necessario copiare il set a partire dalla 
locazione 14336. 

Perciò l'istruzione FOR per copiare il 
set di caratteri da ROM a RAM con il 
primo sistema sarà la seguente: 

FOR A=0 TO 8096:POKE 14336+A, 
PEEK (53248+A):NEXT 

Il secondo sistema è un po’ più comples- 
so da capire, ma è molto più veloce. 
Esso infatti prevede l’utilizzo del Moni- 
tor che il C16 e il Plus/4 contengono 


in memoria già all’accensione, utilizzan- 
do l’istruzione Transfer, che serve a tra- 
sferire il contenuto di una certa area di 
memoria in un’altra area di memoria. 
La sintassi di questo comando è: 

T (indirizzo 1) (indirizzo 2) (indirizzo 3) 

dove: 

(indirizzo 1) è uguale alla locazione di 
partenza del blocco di dati da trasferi- 
re 

(indirizzo 2) è uguale alla locazione fina- 
le del blocco di dati da trasferire 
(indirizzo 3) è uguale alla nuova locazio- 
ne di partenza in cui trasferire il blocco 
di dati. 


Il comando da dare per trasferire il set 
di caratteri dalla ROM alla RAM con il 
secondo sistema è quindi il seguente: 

T D000 D7FF 3800 

Naturalmente, all’interno di un pro- 
gramma non è possibile dare questo co- 
mando dopo essere entrati in monitor, 
e perciò bisogna fare uso di un trucco, 
utilizzando il buffer della tastiera del 
computer (cioè quell’area in cui vengo- 
no memorizzati i tasti premuti). 

Per fare ciò è necessario stampare sullo 
schermo tutto quello che viene visualiz- 
zato, utilizzando in modo diretto il co- 
mando, ed inserire nel buffer una serie 
di RETURN, che facciano compiere al 
computer le dovute operazioni. 
Confusi? 

Beh, ecco una spiegazione più dettaglia- 
ta del concetto. 

Per entrare in modo Monitor bisogna 
dare il comando MONITOR o, abbre- 
viato, M(Shift 0). 

Quindi alla sommità dello schermo 
scriveremo M(schift 0). 

Dopo aver dato il comando il computer 
stampa tutte le informazioni circa i flag 
del linguaggio macchina, e il cursore fi- 
nisce 6 righe più sotto. 

In quel punto scriveremo l’istruzione 
Transfer del linguaggio macchina. 

Dopo aver eseguito tale comando il cur- 
sore si troverà due linee più sotto, dove 
dovremo scrivere una X per uscire dal 
modo Monitor. 

Dopo essere usciti da tale modo il curso- 
re si troverà due linee più sotto, dove 
scriveremo un GOTO che rientri final- 
mente nel programma BASIC, il quale 
utilizza i caratteri appena trasferiti. 

Lo schermo quindi dovrà presentarsi in 
questo modo: 

Mfshift 0) 

(6 righe vuote) 

T D000 D7FF 3800 
(2 righe vuote) 

X 

(2 righe vuote) 

GOTO (numero di linea) 

Dopo aver stampato questi messaggi 
sullo schermo (con il dovuto numero di 
linee vuote) è necessario inserire nel 
buffer di tastiera i seguenti codici: 

chr$(19), corrispondente a (HOME), 
per portare il cursore alla sommità dello 
schermo 

chr$(13), corrispondente a (RETURN), 
per eseguire il comando MONITOR 
presente alla sommità dello schermo 
chr$(13), corrispondente a (RETURN), 
per eseguire il comando TRANSFER 
chr$(13), corrispondente a (RETURN), 
per eseguire il comando X ed uscire dal 
MONITOR 

chr$(13), corrispondente a (RETURN), 
per eseguire il GOTO ed entrare nuova- 
mente nel programma BASIC. 

Per eseguire sia la stampa dei messaggi 
sullo schermo che l’inserimento dei (RE- 


TURN) e dell’(HOME) nel buffer di ca- 
ratteri del computer è necessario scri- 
vere queste linee: 

10 PRINT“ (clear)M(shiftO)(6 down)(2 
left)T D000 D7FF 3800(2 down)(16 
left)X(2 down)(left)GOTO (xyz)” 

(xyz) corrisponde al numero della linea 
d'inizio del programma BASIC. 

Se il programma iniziasse, come in que- 
sto esempio, alla linea 40, al posto di 
‘GOTO (xyz)’ bisognerebbe scrivere 
‘GOTO 40’. 

20 POKE 239,5:POKE1319,19: 
POKE1320,13: POKE1321.13: 
POKE1322,13: POKE1323,13 

Questa linea inserisce i caratteri di con- 
trollo (HOME) e (RETURN) nel buffer 
della tastiera. 

La POKE236,5 indica al computer che 
nel buffer ci saranno 5 caratteri da tene- 
re in considerazione. 

Le successive POKE inseriscono nel 
buffer dei caratteri i valori dell’(HOME) 
(valore 19) e dei (RETURN) (valore 13). 

30 END 

Questa linea ferma il programma e dà 
inizio alla sequenza di comandi presenti 
sullo schermo, che attuano il trasferi- 
mento. 

40 (programma in BASIC che utilizza i 
caratteri programmati) 

Dando il RUN a un programma che al- 
l’inizio ha queste linee, vengono tra- 
sportati i dati dei caratteri dalla ROM 
alla RAM (nella quale i dati partono 
sempre da 14336) e subito dopo viene 
passato il comando alla linea presente 
nel GOTO stampato dalla linea 10. 

Visualizzare sullo schermo i 
caratteri programmabili 
presenti in RAM 

Dopo aver trasferito il set di caratteri 
da ROM in RAM è necessario rendere 
visibili i caratteri programmabili, invece 
di quelli presenti in ROM. 

Per fare ciò è necessario eseguire due 
istruzioni POKE. 

Esse sono le seguenti: 

POKE 65298, 192:POKE 65299,56 

Queste due POKE rendono visibile il 
nuovo set presente in RAM. 

Per ritornare a vedere i caratteri stan- 
dard presenti in ROM è necessario ese- 
guire altre due POKE: 

POKE 65298, 196:POKE 65299,208 

Per proteggere il set di caratteri in RAM 
è necessario eseguire alcune POKE per 
modificare il contenuto dei puntatori di 
fine BASIC, in modo che se il program- 
ma dovesse raggiungere la zona di me- 


moria dove sono presenti i caratteri, 
non li cancellerebbe. 

Le POKE sono le seguenti: 

POKE52,55:POKE56,55 

Per modificare i caratteri presenti in 
RAM è sufficiente cambiare il contenuto 
delle locazioni del carattere da cambia- 
re. 

Queste locazioni si possono facilmente 
calcolare con questa piccola espressio- 
ne: 

Locazione= 14336+(8*codice carattere) 

Come funziona il programma 

Il programma è molto semplice da usa- 
re. 

Appena fatto partire, dopo alcuni se- 
condi vengono visualizzati sullo scher- 
mo tutti i caratteri con il codice compre- 
so tra 96 e 127, e il primo carattere 
viene visualizzato, ingrandito, in una gri- 
glia, con i numeri decimali che corri- 
spondono alle rispettive configurazioni 
di bit di ogni riga della griglia. 

Questo programma offre 5 opzioni per 
modificare, registrare, caricare, cancel- 
lare uno qualsiasi dei 32 caratteri modi- 
ficabili. 

Ecco la lista delle opzioni, con il loro 
funzionamento: 

Cancella: permette di cancellare il ca- 
rattere presente nella griglia. 

Prendi serve a visualizzare uno dei 
32 caratteri nella griglia, per poterlo poi 
modificare. 

Per richiamare un carattere è necessa- 
rio scrivere sempre tre cifre. 

Perciò, se bisogna richiamare, ad esem- 
pio, il carattere 98, è necessario digita- 
re “098” perché venga visualizzato. 

Edita serve a modificare il carattere 
presente nella griglia. Per fare ciò biso- 
gna utilizzare il joystick in porta uno per 
muovere il cursore e il tasto fire per 
cambiare lo stato del pixel sotto il curso- 
re (se il pixel è acceso, lo spegne, se è 
spento, lo accende). 

Tape serve a salvare su nastro il set 
attualmente visualizzato sullo scher- 
mo. 

Load serve a caricare dal nastro un 
set precedentemente salvato. 

Per richiamare una delle 5 opzioni è 
necessario battere l’iniziale dell’opzio- 
ne. 

Inoltre per uscire dall’opzione ‘Edita’ bi- 
sogna premere Q. 

Infine se vorrete utilizzare alcuni carat- 
teri dei set che create, non dovete fare 
altro che copiarvi su un foglietto i nume- 
ri presenti vicino alla griglia alla quale 
è visualizzato il carattere che vi interes- 
sa. 

Ed ora, buon divertimento! 
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Generatore di caratteri 
per C16-Plus/4 


20 POKE52 , 55 : POKE54 , 55 : POKE56 , 55 : GOSUBl 01 


0:SYS882 

: rem 

183 

30 POKE65298 ,192:POKE65299, 

(PEEK (65299) AN 

D3JOR56 

: rem 

244 

40 D I MF ( 8 ) ,D (32,8) 

: rem 

151 

50 CH = 1 

: rem 

94 

60 SCNCLR:GOSUB71 0 

: rem 

125 

70 GOS0B580 

: rem 

132 

80 GOSUB770 

: rem 

134 

90 REM * * * *ROUTINE PRINCIPALE**** 



: rem 

170 

1 00 GETKEYAS 

: rem 

191 

110 IFA$="C"THENGOSUBl 70 

: rem 

145 

120 IFA$="P"THENGOSUB21 0 

: rem 

1 54 

130 IFA$ = "E"THENGOSUB230 

: rem 

146 

140 IFA$ = "S"THENGOT04 50 

: rem 

94 

150 IFA$="L"THENGOTO520 

: rem 

86 

1 60 GOTOI 00 

: rem 

97 

170 A$ = " { 8 SPAZI}" 

: rem 

126 


180 F0RY=2T09 sCHARl , 26 , Y , A$ : B$ = STR$ ( 0) +’’ 


{ 2 

SPAZI }":CHAR1 , 35 , Y , B$ : NEXT 



: rem 

238 

1 90 CR$ 

="{ 4 SPAZ I } " : GOSUB680 : RETURN 



: rem 

70 


200 REM **** LEGGE IL CARATTERE DALLA RAM 



* * * * 

: rem 

1 52 

210 

GOSUBl 70 :GOSUB860 :GOSUB770 : GOSUB670 :R 


ETURN 

: rem 

204 

220 

REM **** EDITA IL CARATTERE **** 




: rem 

95 

230 

H=26:V= 2 SCOLORI ,2,7 

: rem 

44 

240 

L0=3072+V*40+H : AB=PEEK (LO) sPOKELO 

, AB + 


1 28 : FORT=l TO30 : NEXT 

: rem 

162 

250 

POKELO , AB 

: rem 

16 

260 

GOSUB870 

: rem 

183 

270 

IFLE= 1 ANDH>26THENH=H- 1 

: rem 

66 

280 

IFRI=1 ANDH< 33THENH=H+1 

: rem 

71 

290 

IFUP= 1 ANDV> 2THENV=V- 1 

: rem 

76 

300 

IFDN= 1 ANDV< 9THENV=V+1 

: rem 

52 

310 

IFQ= 1 THENAS = " " : RETURN 

: rem 

17 

320 

IFFI=0THEN390 

: rem 

235 

330 

G=H-25:X=V-1 

: rem 

121 

340 

IFAB=32THENDD=42 :W=BI (G) : 

ELSEDD=32 :W= 


0 

: rem 

33 

350 

POKELO, DD: J=D (CH,X) : IFW=0THEN370 




: rem 

209 

360 

J= JORW: D (CH ,X) =J : GOTO330 

: rem 

21 3 

370 

C=BI (G) :W= (NOTO +1 : K=D (CH 

,X) : J=K+W: D ( 


CH , X) =J 

: rem 

69 

380 

GOSUB41 0:SS=1 4848+ ( (CH-1 ) 

*8) +X-1 : 

POKE 


SS,J 

: rem 

84 

390 

GOTO240 

: rem 

107 

400 

REM **** VISUALIZZA IL CARATTERE 

* * * * 



: rem 

10 

410 

BB=X: X=D (CH , BB) SGOSUB820 : 

CHARl ,26 

,v,x 


$ 

: rem 

232 

420 

P$="{ 3 SPAZI}": XX$=STR$ (X) : CHARl 

f 36, 


V,P$ : CHARl , 35, V,XX$ 

: rem 

123 

430 

X=BB: RETURN 

: rem 

202 

440 

REM **** SALVA IL SET **** : rem 

196 

450 

RESTORE 490 : FORT=0TO31 sREADA: POKEl 536 


0+T, A: NEXT 

: rem 

167 

460 

CHARl, 0,21," " 

: rem 

68 

470 

SYS 15360 

: rem 

1 53 

480 

GOTO 60 

: rem 

59 

490 

DATAI 69,1 ,162,1,160,255,32,1 86,255,1 6 


9,0,32,189,255,169,0,133, 

208,169, 

58 



: rem 

234 

500 

DATAI 33,209,1 62,0,1 60,59, 

1 69,208, 

32,2 


16,255,96 

: rem 

21 4 

510 

REM **** CARICA IL SET **** srem 

238 

520 

RESTORE 560 : FORT=0TO23 : READA : POKEl 539 


2+T, A: NEXT 

: rem 

169 

530 

CHARl, 0,21," " 

: rem 

66 

540 

SYS 15392 

: rem 

1 56 


550 GOTO 60 :rèro 57 

560 DATAI 69,1 ,162,1,1 60,255,32,1 86,255,16 
9,0,32,189,255,169,0,162,255,160 



: rem 

74 

570 

DATA255, 32, 21 3,255,96 srem 

8 

580 

COLORO,! :COLOR4 , 1 SCOLORI ,8,S:SCNCLR 


: rem 

161 

590 

CHARl , 0, 0, "NO. { 3 SPAZI}CHAR 



{ 4 SPAZ 1} NO. { 3 SPAZ I}CHAR": rem 

231 

600 

FORX=0TO23 sCHARl ,X,1 sNEXT 



: rem 

202 

610 

FORY=3T01 8 : D$=STR$ (Y+93) sCHARl ,0 

,y,d$ 


: CHARl , 7 , Y ,CHR$ (Y+93 ) : NEXT srem 

230 

620 

FORY=3T01 8 :D$=STR$ (Y+l 09) sCHARl , 
D$ sCHARl ,21 , Y ,CHR$ (Y+l 09) SNEXT 

13, Y, 


: rem 

163 


630 COLORI ,7, 4:A$="{RVS} { 10 SPAZI} {OFF}" 
: CHARl , 2 5 , 1 , A$ , 1 : FORT= 1 T08 :retn 245 

640 B$=" { RVS } {OFF } { 8 SPAZI} {RVS} {OFF}" 
: CHARl ,25, T+l , B$ : NEXT :rem 204 

650 CHARl ,25,10, A$,l :rem 248 

660 COLORI ,6,5 :CHARl ,0,21 , "CARATTERE MOST 
RATO :" : rem 65 

670 COLORI ,6, 5:CR$=STR$ (CH+95) +" " 

:rem 65 

680 CHARl ,20,21 ,CR$ :rem 239 

690 «RETURN :rem 127 

700 REM ****INIZIALIZZAZ IONE VARIABILI*** 
* :rem 49 

710 AD=1 4848 : rem 99 

720 FORN=1 T032 : FORM= 1 T08 : D (N ,M) = PEEK (AD ) : 

AD=AD+1 :NEXTM,N : rem 230 

730 RESTORE740 :FORT=l T08 :READBI (T) : NEXT 

:rem 22 

740 DATAI 28,64,32,16,8,4,2,1 : rem 137 

750 RETURN :rem 124 

760 REM **** DISEGNA IL CARATTERE **** 


:rem 252 

770 Y=2 : BB=X:COLORl ,2,7 : rem 100 

780 FORN=lT08:X=D(CH,N) : GOSUB820 : rem 218 
790 CHARl , 26, Y,X$ :XX$=STR$ (X) :P$ = " 

{ 3 SPAZI } " : CHARl , 36, Y, P$ : CHARl , 35, Y , 
XX$ : Y=Y+1 : rem 90 

800 NEXT : rem 215 

810 X=BB : RETURN : rem 204 

820 X$=” 00000000 ”:U=128 :rem 126 

830 FORM= 1 T08 : Z=UANDX: IFZ<>0THENB$=”*" :EL 
SEB$ = " " : rem 192 

84 0 U=U/2 : MID$ (X$,M, 1 ) =B$ : NEXT : RETURN 

:rem 245 

850 REM **** MODIFICA CARATTERE **** 

:rem 168 

860 COLORI , 6 , 5 :CHARl ,24,13, "CARATTERE ?" s 
X=35:Y=13 :GOSUB9 50 : RETURN :rem 227 


870 

880 
890 
900 
91 0 
920 
930 
940 
950 

960 


Q=0 : LE=0 :RI=0:UP=0: DN 

=0 :FI=0 : KS=JOY (1 

) 

: rem 

27 

IFKS=7THENLE= 1 

: rem 

111 

IFKS = 3THENRI = 1 

: rem 

118 

IFKS= 1 THENUP=1 

: rem 

118 

IFKS = 5THENDN= 1 

: rem 

104 

I FKS = 1 2 8THENF 1 = 1 

: rem 

204 

I FPEEK (198) =62THENQ= 1 

: rem 

214 

RETURN 

: rem 

125 

N$ = ” " : B$ = ” { 3 SPAZI}” 

: CHARl ,X,Y,B$ 

: FO 

RN= 1 T03 

: rem 

137 

GETKEYBS : I FVAL ( B$ ) < 0ORVAL ( B$ ) >9THEN96 

0 

: rem 

29 


970 N$=N$+B$ :CHARl , X , Y , N$ : NEXT : CH=VAL ( N$ ) 

:rem 163 

980 IFCH< 960RCH> 1 27THEN950 : rem 55 

990 CH=CH- 95: RETURN :rem 170 

1 000 POKE65298 , 1 96 : POKE652 99 , 209 : END 


:rem 26 

1010 RESTORE 1 020 : FORN = 0TO30 : READA : POKE88 
2+N f A: NEXT: RETURN : rem 166 

1 020 DATAI 60, 0,1 32, 21 2,1 32,21 4,1 69,208,1 3 
3,213,169,56,133,215,162,3 :rem 253 
1 030 DATAI 77, 212, 145, 21 4,200,208,249,230, 
213,230,215,202,16,242,96 :rem 208 
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di M. Cristuib Grizzi 


Commodore 16 
sempre di più 

di R. Bonelli, L. Pazzncconi, 

F. Racchi 

ed. Grappo Editoriale Jackson 

Il libro rappresenta il seguito logico di 
u Commodore 16 per te”, degli stessi 
autori e già recensito su queste stesse 
pagine. Mentre nel primo veniva de- 
scritto il linguaggio BASIC del C16, ora 
la trattazione kdiventa più approfondi- 
ta, riguardando soprattutto la program- 
mazione in linguaggio macchina, la gra- 
fica multicolore ed a colore di fondo 
esteso, e l’interfacciamento del compu- 
ter con stampante e disk drive. 

Per coloro che si divertono a program- 
mare. questo libro si propone come un 
utile manuale contenente informazioni 
circa la memoria del CI 6, informazioni 
oggi non reperibili altrove: è infatti il 
primo testo per questo computer che 
vediamo contenere informazioni circa la 
programmazione di caratteri multicolori 
ed a colore di fondo esteso, dello scorri- 
mento di fine dello édheirmo e del raster 
interupt. w Dtilcis in fundo”, viene final- 
mente fornita Una mapppa di memoria 
sufficientemente dettagliata per potersi 
sbizzarrire nella programmazione di 
questa macchina fino ad ora pochissimo 
documentata. 

Nel capitolo dedicato all’utilizzo della 
stampante, vengono proposte due inte- 
ressanti routine per l’hard copy dello 
schermo su carta, sia in alta che in bas- 
sa risoluzione, e vengono analizzati tutti 






i possibili modi di stampa con relativi 
caratteri di controllo. Passando al disco, 
vengono proposti alcuni esempi di crea- 
zioni di file dati sequenziali, random e 
relativi, iniseme ad alcuni programmi di 
utilità per il controllo del corretto fun- 
zionamento del disk drive, mentre nel 
capitolo dedicato alla programmazione 
in lunguaggio macchina si passano in 
rassegna i modi di indirizzamento, il set 
di istruzioni del microprocessore 7501, 
e le principali tecniche di programma- 
zione in ASSEMBLY. Dal momento che 
il C16 dispone di un monitor incorpora- 
to, è molto facile seguire gli esempi pro- 
posti disassemblando direttamente la 
memoria, oppure inserendo i program- 
mi ASSEMBLY direttamente attraver- 
so di esso. 

In conclusione, il libro si propone valida- 
mente sia al lettore che desidera impa- 
rare qualcosa in più della semplice pro- 
grammazione in BASIC, sia al program- 
matore che, magari passato al C16 do- 
po una prima esperienza sul VIC 20, 
soffriva della cronica mancanza di docu- 
mentazione sulla struttura della memo- 
ria della nuova macchina. Inoltre, con 
la consueta formula della cassetta alle- 
gata, viene del tutto eliminata anche la 
noia inista nella digitazione dei listati 
proposti. 

I TUOI AMICI 

COMMODORE 16 E PLUS/4 

di B. Lloyd 

ed. Grappo Editoriale Jackson 

II C16 (e, visti gli ultimi prezzi, anche il 
Plus/4) si propone tipicamente come 
primo computer: molti suoi aquirenti so- 
no infatti completamente inesperti circa 
l’utilizzo di un calcolatore, e cercano tra 
mille difficoltà di impararne i principi di 
programmazione. L’unica documenta- 
zione di cui in genere si dispone è il 
piccolo manuale compreso nella confe- 
zione della macchina, ricco solamente 
di lacune e confusioni e certamene del 
tutto insufficiente a dare un’idea delle 
possibilità di programmazione del nuo- 


vo acquisto. 

Questo libro si propone come valida al- 
ternativa per scoprire in che cosa consi- 
ste il linguaggio BASIC del C16 e Plus/ 
4, e soprattutto come utilizzarlo per 
creare dei propri programmi. 

Il lettore viene introdotto, passo dopo 
passo, nel mondo del BASIC attraverso 
esempi chiari ed esaurienti su tutte le 
istruzioni di programmazione: in dodici 
capitoli si passerà da una fase introdut- 
tiva volta a creare una “conoscenza” 
tra computer e utente, fino ad un ap- 
profondimento delle molteplici ed inte- 
ressanti capacità del calcolatore. 

Il linguaggio BASIC viene “sezionato”, 
e le sue istruzioni suddivise in gruppi, a 
seconda del livello di apprendimento 
raggiunto nel corso della lettura del li- 
bro: si inizia con la “classica” PRINT, 
inizio della carriera di molti programma- 
tori, per proseguire con la programma- 
zione strutturata, la grafica, il suono, le 
funzioni definibili dall’utente, e l’inter- 
facciamento con le periferiche. 

Dopo aver letto attentamente questo 
volume, anche la persona compieta- 
mente a digiuno di matematica o pro- 
gammazione sarà in grado di scrivere 
da sé i primi programmi, entrando così 
nella schiera sempre più folta di coloro 
che utilizzano il computer non per vede- 
re “girare” programmi altrui, ma per 
ricavarne le intime soddisfazioni che 
può offrire soltanto lo sviluppo persona- 
le del software. 
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ABBONATI A SUI 

ciò - vie : 

NESSUNO I 



CI6s- yy^r 


£•* er«x«oS| 9 "*•"»« 


Prodotti 

°Mmodore ci a 
P| «*/4.VlC20 6 


Vuoi ricevere a casa ogni mese 
le ultime novità software che ri- 
guardano il tuo amato compu- 
ter? Abbonarsi a SUPERCOMMO- 
DORE Ciò - VIC 20 - PLUS/4 è il 
modo più sicuro e conveniente: 
puoi risparmiare il 20% rispetto 
a quello che spenderesti in edi- 
cola e puoi scegliere tra due 
formule di abbonamento. La 
formula "solo rivista" oppure la 
formula "rivista più cassetta", 
che ti evita di digitare i lunghi 
listati che servono per far "gi- 
rare" i programmi pubblicati. 


Abbonarsi a 
SUPERCOMMODORE 
C16 - VIC 20 - PLUS/4 
è sicuro e conveniente. 


Il tuo computer 
ti ringrazierà. 

vJ. soft. 

Viale Reslelli. 5-20124 Milano 

Tel 02/683797-688084 1 -6880842-6880843-6888228 


’ERCOMMODORE 
!0 - PLUS/4 
,A SUPERA 



Scegli la iormula 
di abbonamento che preterisci 
e spedisci subito il tagliando di 
abbonamento alla tua 
Super rivista. 

È il meno che tu possa tare 
per il tuo super computer. 


Puoi effettuare il versamento sul C.C.P. n° 1 9445204 allegato 
intestato a J .sott - Milano, oppure ritaglia il tagliando 
sotto riportato e spediscilo in busta chiusa, 
allegando assegno intestato a J.soft - Milano. 


Tagliando abbonamento a SUPERCOMMODORE 
CI 6 - VIC 20 - PLUS/4 

□ Abbonamento a 1 1 numeri di SUPERCOMMODORE 
C16 - VIC 20 - PLUS/4 (SI) 

L. 30.000 anziché 

□ Abbonamento a 1 1 numeri di SUPERCOMMODORE 
Ciò - VIC 20 - PLUS/4 con cassetta (SIC) 

L. 66.000 anziché 

□ Assegno allegato n° 

□ Ho versato l’importo sul C.C.P. n° 19445204 allegato 

Nome 


Cognome 
Via 


C.A.P. 


Prov. 


Firma 


Nel caso di versamento su C.C.P. preghiamo dt allegare fotocopia della ricevuta di versamento. 



in 


VIC 20 club m ambia programmi su na 
siro e car lodge assicurando massima 
serietà Cinzia Ceccanm Via Di Vitto 
rK>. 10 58022 Follonica (GR) 

Per C64 vendo, ( amino magnifici vide 
ogames ti.i fin Pecos Bill. Ghosibu 



t 


Vendiamo il Turbo Tape a L 15.000 e 
giochi vari (Zaxxon. QBert. ecc.) a L. 

5.000 Tutto su cassetta. Richiedere la 
lista Paoloe Luig Bellini Via Venezia, 
121 30039 Stra (VE) 

Vendo 200 videogames per C64 
(Ghost busters, Donald Duck. Bruce 


stero. Decathlon ed alto soijnese Te 
ielonate e le scoprirete Alessandro 
Costa Via Tansini. 29 20100 Piacen 
za Tel 0523/754784 

Compro, vendo programmi per C64 su 
cassetta a partire da L 2.000 Telefona 
re ore serali Bruno Gandolfi Via Cala 
mandrei. 1 14049 Nizza Monferrato 

(AT) Tel 014 1 727216 

Vendo cassette per VIC 20 e C64 come 
Calcio e Attak Prezzi non superiori 
alle L. 6.000. Per informazioni n volgersi 
a: Federico Frignani Via Ciro Menotti. 
27 41012 Carpi (MO) Tel. 680620 

Per C64 vendo giochi a L. 1.000, utility 
a L 2.000. Scrivere o telefonare (ore 
13 00 16.30 e 19.00 20 30) a: Stefano 
Ferreo Corso Grosseto. 259 10147 
Torino Tel 011 296892 


Compro espansione 16 Kbyte per VIC 
20. Offro al massimo L. 50.000 Stefano 
Plescia ViaG.Borsi. 5 00197 Roma 
Tel. 06 800684 

Vendo VIC 20 più registratore. 100 
programmi e joystick a L. 240 000 più 
spese di spedizione. Telefonare o seri 
vere a: Luca Maccechini Viale Virgilio. 
27 34170 Gonzia Tel 0481 89110 


Vendo cassetta per C64 comprender 
te giochi fantastici, tutti in Turbo Tape, 
fra cui: Calcio. Pole Position. Popeye. 
Decathlon. Basket Provare per crede 
re. Offerta sempre valida Alessandro 
Ranaldi Via L Calpurmo Bibulo. 9 
00175 Roma Tel 06/7661367 

Vendo disco per la calibratura e la tara 
tura del floppy 154 1 con istruzioni a L. 
60 000 Lorenzo Picco Via Marano 
Lagunare. 25 33100 Udine Tel. 

0432 26538 

Offro per CBM 64 i migliori games a L 

2.000 cadauno Dispongo di tutti i titoli 
Activision (Decathlon. H E R O . Pit 
fall, ecc.) e di tanti giochi in LM (Pope 
ye. Soccer. Pole Position, ecc.). Richie 
dere la lista a Carb Ruggiero Via 
Epipoli. 4 84100 Salerno Tel. 

089 272747 

Inviate al mio indirizzo una cassetta 
con vostri giochi ed Utilities Avrete in 
cambio una cassetta C90con Biliardo. 
Golf. Derby. Auto. Las Vegas, giochi di 
carte ed Utilities Lorenzo Scarselli 
Via B Poccetti. 6 A 50124 Firenze 
Tel. 055 223310 

Per C64 vendo, cambio più di 5.000 
titoli sia su disco che su cassetta. Novi 
là ogni settimana. Tratto solo con Mila 
no. Francesco Greco Via degli Imbria 
ni. 1 20158 Milano Tel. 02,3764467 


Vendo per C64 una cassetta con 17 
giochi (Scacchi. Qix. Poker. Pole Posi 
tion. Biliardo. Flipper. Forbidden Fo 
resi. Hamburger. Basket. Pooyan, 
Hunck. Popeye. Chilly Willy. Super Pi 
peline. L'Idolo D’Oro. BC. Blue Max) 
più Turbo Tape all’eccezionale prezzo 
di L 45 000 Valerio Manca Viale dei 4 
Venti 00152 Roma Tel 06 5813562 


Vendo e cambio programmi e giochi 
per C64 su nastro e disco. Chiedere 
lista. Sergio Biasol Via al Mare. 14 
34073 Grado (GO) Tel 0431/81212 

Per C64 cambio/ vendo programmi e 
manuali, sia su disco che su cassetta. 
Possiedo programmi di qualsiasi tipo: 
Magic Desk. Flight Simulator II. Beach 
Head. CLone Machine, ecc ). Inviatela 
vostra lista o chiedete informazioni a. 
Gianvittorio Palli Via Neppiano. 11 
27057 Varzi (PV) 

Vendo VIC 20 più registratore, 2 ma 
nuali e cassette giochi. Tutto nuovo 
Affare! Fabio Sapienza Corso Vercel 
li. 13 228100 Novara Tel. 

0321 452366 

Cerco software per C64 su cassetta, 
soprattutto utility, gestionali, algebra, 
ecc. Inviare lista con caratteristiche e 
prezzi (modici) Rosario Orsanto Via 
Cupa Vicinale Vallone. 32 80145 Mia 
no (NA) Tel. 081 7553937 

Per VIC 20 inespanso vendo una cas 
setta con cinque giochi in LM da sce 
glere fra i seguenti: Defender. QBert. 
Pac Man. Gridrunner, Crazy Climber, 
Crossfire. Seawolf. Lama. ecc. Tutto a 
sole L. 15.000. Umberto Benelli Viale 
XX Settembre. 180 54031 Carrara 

Avenza (MS) Tel. 0585/57145 

Cambio e vendo programmi per C64 a 
prezzi stracciati Tratto solo con Mo- 
dena. Telefonare ore pasti tranne saba 
to e domenica Christian Welker Via 
G Lagrange.il 41 100 Modena Tel. 
059 357315 

A sole L 6.000 vendo cassetta conte 
nenie 10 supergiochie 4 utility per VIC 
20 versione base Cambio inoltre soft 
ware per VIC 20 e ZX Spectrum Seri 
vere a: Alessandro Ubiali Via L da 
Vinci. 2 25028 Verolanuova (BS) 

Vendo per VIC 20 una cassetta conte 
nenie 10 splendidi giochi (Blitz. Raid 
On Isram. ecc.) a sole L. 6.000 più 
eventuali spese di spedizione Massima 
serietà. Affrettatevi, è un’occasione da 
non perdere Federico Formia Via 
Strada San Vincenzo» 40D 10131 To 
rino Tel. 011 6503285 


Lee. Mission Impossible. Soccer. Pit 
Stop II) e molte utility (Archivio. Toto 
calcio. Easy Script. Disegnatore) Prez 
zi trattabili. Massimiliano Ciotti Via 
Raciliana. 5 00149 Roma Tel. 

06 5265823 

Cambio programmi per C64. Cerco 
software grafico e di comunicazione 
Roberto Maugen Via Brancati. 6 
95128 Catania Tel 095 432876 

Vendo giochi molto belli da L. 2.000 a 
L 5 000 con Turbo Tape (compreso 
nel prezzo): Gyruss. Popeye. Zaxxon. 
ecc. Inoltre vendo utility con Turbo Ta 
pe Per ricevere la lista inviare franco 
bollo a: Giovanni Benelli Viale Oldrim. 
5 26010 Dovera (CR) 

Vendo VIC 20 quattro mesi di vita, cas 
sette giochi, libri sul VIC. manuale, ca 
vetti, ecc. a L. 350.000. Luigi Polchi 
Viale Brennero. 1 06012 Città di Ca 
stello (PG) Tel. 075 8550604 

Cambio registratore a bobine Akai GX 
4000 D perfetto, come nuovo, per dri 
ve 1541 o altro hardware per C64. Elia 
Chimera Via Palmen. 2 93010 Valle 
lunga (CL) 


Per C64 vendo anche su disco giochi 
favolosi come: Ghost busters. Summer 
Games. Hes Games e tanti altri a prez 
zi da sballo. Mirko Bonanno Via 
S.Giuliano 95127 Sali Battati (CT) 
Tel 095/212118 

Vendo numerosi programmi per C64 
tra cui: Easy Script. Turbo. S A M 
(sintetizzatore vocale), Zaxxon. De 
cathlon. Pole Position. H E R O . Fai 
con Patrol. Hunck BAck, Calcio. Ten- 
nis. Popeye a L 4000 cadauno Marco 
Scilio Viale delle Province. 52 95014 
Giarre (CT) Tel. 933634 


Per C64 compro cambio giochi, utili 
ties e gestionali, preferibilmente su di 
sco. Inviare lista a Piero Greco Via M 
Corsello, 24 92024 Canicattì (AG) 

Vendo, cambio software per C64 Di 
spongo del favoloso Turbo Tape e di 
giochi come: Summer Games. Pole Po 
sition. BC. Pitfall II. ecc Inviare imme 
datamente la lista. Annuncio sempre 
valido William Antolini Via Pollastrini. 
2 00062 Bracciano (RM) Tel. 

06 9023309 

Vendo numerosi programmi e listati 
per VIC 20 (Poker. Froggy. Blitz. Sca 
latore, ecc.). Vendo inoltre una casset- 
ta con 40 giochi più listati a sole L. 

20.000 Telefonate! Grazie. Giulio Val 
lati Via Francesco Schupfer. 9 00167 
Roma Tel. 06 6230505 


Vendo software jx-r VIC 20 su casset 
ta Molti programmi inediti fra cui: Mo 
nopoh. Football. Clawn, ecc. Per liste 
inviare L 1 000 Disposto anche allo 
scambio* Paolo Gadani Via Provincia 
le. 45 52040 Civ.tella (AR) 

Vendo VIC 20 (in garanzia) più giochi 
su cassetta e volume “H libro del Com 
modore VIC 20" a L. 120 000 Stefano 
Sereni Via S.G Bosco, 9 56100Pisa 
Tel 050/751006 

Vendo al miglior offerente VIC 20 ac 
cessonatissimo: Mother Board. 
E PROM Super BASIC. 32 Kbyte. 3 
Kbyte Super Expander. Iibn. riviste, 
beflissimo software. Prezzo da concor 
dare Regalo cartridge Scacchi Telefo 
nare ore pasti Silvio Cappelli Via Mi 
la no. 19 19100 La Spezia Tel. 

0187 36600 

Cambio programmi perC64.preteribil 
mente su disco. Mandate le vostre liste 
e/o chiedete la mia Telefonare ore 
18 00 21.00 Gianni Cottogm Via 
Strambino. 23 10010 Carrone (TO) 
Tel 0125/712311 

Cambio programmi su nastro per C64 
Ho circa 150 titoli (Pole Position, BC, 
Falcon Patrol. ecc.) Cerco copiatori su 
nastro e simulatore di volo Scrivere o 
telefonare dalle 19 00 alle 23.00 Ri 
spondo a tutti. Annuncio sempre vali 
do Nxrola D'Ambrosca ViaS.Leucio. 
2 Traversa nr 2 81046 Grazzanise 

(CE) Tel 0823 964509 

Se siete ragazzi O K rispondete a que 
sto annuncio, non ve ne pentirete! Ven- 
diamo a prezzi favolosi cassette, dischi 
e libri sul linguaggio macchina, il tutto 
per C64. Non costa nulla un francoboi 
lo Stefano Gracci Via Botinaccio, 
37 50056 Firenze Tel. 055 542469 

Cerco C64 in buono stato a L. 150.000 
anche senza software. Eventualmente 
anche guasto Andrea D’Amore Via 
Pr Umberto. 30 24040 Boriate Sopra 
(BG) Tel. 035 993281 

Compro software C64 per il drive 1541. 
Contattatemi' Fabrizio Matteini Via 
Marconi, 62 40122 Bologna Tei. 

051 269492 

Compro per C64 qualsiasi programma 
di latino o greco su cassetta Adalberto 
Zisa Via Casonetto Alto. 2 31030 

Castelcucco (TV) Tel. 55052 

Vendo espansxjne programmabile da 3 
a 32 Kbyte per VIC 20 Mai usata, vaio 
re effettivo L. 170.000. tratto L 

145.000 Regalo 2 giochi Telefonare 
ore 20 00 Marco Cavallan Via Mazzi 
ni. 11 20054 Nova Milanese (MI) Tel. 
0362 42540 

Vendo Commodore VIC 20. 5 mesi di 
vita, completo di imballo originale più 
una cassetta con 20 giochi e il libro 
"Impariamo a programmare in BASIC 
con il VIC". Il tutto a sole L. 200 000. 
Telefonare dopo le ore 21.00. Paolo 
Conti Via Caffaro. 50 00154 Roma 
Tel. 06 5118810 
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Per collaborare a SUPERCOMMODORE 


La rivista è interessata ad articoli e programmi riguardanti la linea Commodore, di interesse 
generale, chiari ed esaurienti. Vi proponiamo una piccola “guida”, che ha particolarmente lo 
scopo di rendere più accurata la stesura dei vostri manoscritti: seguendo i nostri consigli si 
accresceranno le probabilità che le vostre buone idee e i vostri programmi vengano pubblicati. 


1 l’angolo superiore sinistro della prima pagina 
dovrà contenere: nome, cognome, indirizzo, 
numero telefonico, codice fiscale, data di spedi- 
zione, luogo e data di nascita. 

2 l’angolo superiore destro della prima pagina 
dovrà contenere la marca e il tipo di compu- 
ter al quale il lavoro si riferisce, unitamente ad 
eventuali espansioni di memoria o periferiche ri- 
chieste. 

3 il titolo dell’articolo, sottolineato, dovrà ini- 
ziare a circa due terzi in altezza della prima 
pagina. 

le pagine seguenti potranno essere battute 
normalmente, con la condizione che l’angolo 
superiore destro contenga un’abbreviazione del 
titolo e del cognome, unitamente al numero di 
pagina. Per esempio, Sprite Ed. ../Brambilla/2. 

5 il testo dell’articolo dovrà essere battuto a 
macchina con interlinea di uno spazio e mez- 
zo, massimo due spazi; un margine di almeno un 
centimetro dovrà essere lasciato su entrambi i 
lati dello scritto. 

6 dovranno essere usati fogli in formato UNI 
A4 (cm. 21 x 29,7) e il testo, scritto in carat- 
teri maiuscoli e minuscoli, dovrà occupare una 
sola facciata del foglio. 

7 nel caso il testo comprenda più fogli, questi 
dovranno essere uniti con un fermaglio o con 
un punto metallico aperto. 

8 avendo intenzione di spedire più di un artico- 
lo, questi dovranno essere inviati separata- 
mente insieme alla rispettiva copia su supporto 
magnetico. 

9 programmi brevi (meno di 20 linee) potranno 
essere inseriti nel testo, mentre programmi 
più lunghi dovranno essere listati separatamente. 
E ESSENZIALE per noi disporre di una copia 
del programma registrata più volte su supporto 
magnetico, su entrambi i lati dello stesso. E prefe- 
ribile usare nastri di buona qualità e di lunghezza 
non eccessiva; la cassetta o il disco dovranno 
essere etichettati con il nome dell’autore, il titolo 
dell’articolo, il computer interessato e soprat- 
tutto le eventuali espansioni richieste. Come sug- 


gerimenti di programmazione si consiglia di usa- 
re le istruzioni “CHR$( x )”, “TAB( x )”, SPC( x 
)”, piuttosto che stringhe di manipolazione del 
cursore. 

Ad esempio, per uno scroll di 5 linee l’istruzione 
“FORI = 1T05:PRINT :NEXT”. è molto più in- 
terpretabile di 5 Q inverse; e, invece di una dozzi- 
na di simboli di cursore a destra, perché non 
usare semplicemente “PRINT SPC (12)”? Un ra- 
pido controllo dei programmi per operare queste 
sostituzioni sarà molto apprezzato da noi e dai 
lettori. 

per maggior chiarezza, all’interno dell’ar- 
ticolo è conveniente usare caratteri maiu- 
scoli riferendosi a istruzioni BASIC (esempio RE- 
TURN. LIST, RND, PRINT ecc.). Se si desidera 
evidenziare una parola, è preferibile sottolinearla 
piuttosto che scriverla in carattere maiuscolo. 

n gli articoli ed i programmi potranno avere 
qualsiasi lunghezza: da una routine di una 
sola linea fino a programmi molto complessi. 

volendo includere diapositive, queste do- 
vranno avere formato 24x36, o 6x6. 
non prenderemo in considerazione artico- 
li che siano stati sottoposti ad altre case 

editrici. 

il materiale non pubblicato non verrà re- 
stituito. 

il compenso per la collaborazione presta- 
ta sarà commisurato alla complessità e 
all’interesse del testo e/o del programma (da un 
minimo di L. 50.000 a un massimo di L. 
300 . 000 ). Il pagamento verrà effettuato in caso 
di pubblicazione del lavoro. 


Inviate idee e programmi a: 

SUPERCOMMODORE 
Viale Restelli, 5 
20124 Milano 

e saremo lietissimi di pubblicare i contri- 
buti migliori. 

La Redazione 
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